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ABSTRACT 


Kildall  has  stated  a  general  data  flow  analysis 
algorithm  which  has  been  applied  to  several  forms  of 
classical  global  program  optimization.  The  algorithm 
operates  upon  the  flow  graph  of  a  program,  where  the  nodes 
correspond  to  basic  blocks  and  the  edges  represent  possible 
program  control  flows.  In  order  to  test  the  effectiveness 
of  this  algorithm,  a  general  purpose  optimizing  module  was 
written  in  XPL  which  analyzes  ALGOL-E  programs  for  constant 
computations,  common  subexpressions  and  simplifying  formal 
identities.  Various  node  selection  algorithms  were 
investigated  with  respect  to  the  convergence  rate  of  the 
algorithm. 
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I.   INTRODUCTION 

A.   BACKGROUND 

The  increased  use  of  high  level  language  compilers  has 
generated  an  interest  in  producing  efficient  machine 
language  code  from  the  high  level  source  language. 
Generally,  this  interest  has  resulted  in  technigues  for 
transforming-  the  original  source  program  to  produce  an 
eguivalent  form  which  is  optimized  with  respect  to  some 
criteria . 

Machine  independent  optimization  algorithms  can  be 
divided  into  two  broad  subclasses  -  local  and  global. 
Basically,  the  difference  is  that  global  techniques  take 
into  account  the  overall  flow  of  the  program  to  be  optimized 
while  local  methods  do  not.  Specifically,  local  techniques 
require  that  the  program  to  be  optimized  be  partitioned  into 
"basic  blocks."  These  blocks  are  divisions  of  the  program 
which  have  no  transfers  into  or  out  of  the  block  except  for 
a  transfer  into  an  initial  element  and  a  transfer  out  of  the 
last  element.  Each  block  is  then  optimized  independent  of 
the  other  existing  blocks. 

A  number  of  techniques  have  evolved  for  analyzing  global 
program  structure,  including  recent  work  by  Killall  [30], 
Hecht  and  Ullman  [22],  Allen  [4],  Kennedy  [25],  Graham  and 
Wegman  [20].  These  techniques  analyze  global  flow  by 
representing  the  program  as  a  directed  graph  with  the  nodes 
of  the  graph  corresponding  to  basic  blocks  with  the  edges 
showing  possible  program  control  flows.  If  the  ALGOL 
program  of  Figure  1  is  analyzed  for  redundant  calculations, 
local  techniques  would  not  detect  the  obvious  redundancy  of 
(C  +  B)  in  block  D  because  this  occurrence  of  the  expression 
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resides  in  a  different  block  than  the  previous  calculation 
of  (B  *  C) .  On  the  other  hand,  global  flow  analysis  would 
detect  the  redundant  calculation  since  (B  +  C)  has  been 
computed  on  all  paths  to  block  D. 

An  iterative  global  flow  analysis  algorithm  was 
developed  by  Kildall  [28]  that  is  capable  of  analyzing  any 
program  structure.  The  algorithm  propagates  data  from  block 
to  block  until  the  propagated  data  reaches  a  terminal  state. 
This  process  may  necessitate  multiple  passes  through  some 
blocks.  Kildall  has  shown  that  the  algorithm  is  finite  and 
will  succeed  given  any  order  for  processing  the  basic 
blocks.  However,  using  a  simulation,  Lukasczyk  [ 34  ]  has 
shown  that  the  convergence  rate  of  the  algorithm  can  be 
affected  by  the  order  in  which  the  "basic  blocks"  are 
processed.  As  one  would  expect,  his  simulation  further 
indicates  that  as  the  number  of  nodes  in  a  program  flow 
graph  increases,  the  method  of  block  selection  becomes  more 
critical. 

An  implementation  of  the  global  flow  analysis  algorithm 
to  be  presented  was  originally  done  by  Kildall  [30]. 
Various  improvements  in  the  implementation  were  made, 
including  more  complete  data  structures  for  computing  flow 
information.  The  results  of  Lukasczyk's  simulation  was  then 
compared  to  the  actual  results  from  the  implementation. 

B.   DEFINITIONS 

In  order  to  examine  the  global  flow  analysis  algorithm 
stated  by  Kildall  [30],  various  basic  notions  need  be 
presented. 
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IF  X  >  Y  THEN 
BEGIN 

A  :=  B  +  C; 

Y  :=  X; 
END 
ELSE 

H  ;=  B  +  C; 
R  :=  C  +  3; 


B 


FIGURE_J. 
AN  ALGOL  PROGRAM  AND  ITS  FLGKGRAPH 
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A  directed  graph  G  is  a  two-tuple  (Nr  E)  ,  where  N  represents 

the  set  of  "nodes"  and  E   is   a   subset   of   N   x   N   called 

"edges."   Given   an   ordered  pair  of  nodes  (n  .  n  )  in  E,  an 

12 

edge  is  said   to   "leave"   node   n    and   "enter"   node   n  . 

1  2 

Further,   n    is  an  "immediate  predecessor"  of  n  ,  and  n   is 
1  2        2 

an  "immediate  successor"  of  n  . 

1 


A  program  flow  graph  G  is  a  three-tuple  (N,  B,  R)  ,  where  N 
and  E  are  as  above  and  R  is  a  non-empty  subset  of  N 
containing  the  entry  nodes  of  G  such  that  there  exists  a 
path  from  an  entry  node  to  any  node  in  N. 

As  stated  previously,  a  program  can  be  partitioned  into  a 
set  of  basic  blocks.  Each  basic  block  is  a  program  segment 
having  no  transfers  entering  or  exiting  except  thru  the 
initial  and  final  elements.  Basic  blocks  are  represented  by 
single  nodes  in  the  program  flow  graph  and  are  hereafter 
referred  to  as  blocks.  The  edges  of  the  program  flow  graph 
represent  the  possible  paths  of  control  flow  as  directed  by 
the  program  structure. 

In  the  following  discussion,  note  that  for  simplicity 
the  various  pools  of  information  are  always  associated  with 
the  node  "n."  Where  this  rather  informal  association 
becomes  unclear,  particular  effort  will  be  made  to 
distinguish  pools  with  their  associated  nodes. 


A   current   optimizing   £22i.   (p  )   ^s   associated   with    a 

c 

particular  block  n  and  represents  the  optimizing  information 

available  at  the  block,  which  is  iteratively  refined   during 
the  flow  analysis. 
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An  input  pool  (p  )  is  information  which  is  to  be   used   upon 

entry   to  a  given  block  n.   The  optimizing  function,  defined 

below,  uses  this  pool  in  its  transformation.  This 
information  is  identical  to  the  current  optimizing  pool  of  a 
block  n,  and  will  be  referred  to  as  the  input  pool  to 
increase  the  clarity  of  the  global  flow  analysis  algorithm 
which  is  stated  below. 

An  output  pool  (P  )  is  optimizing  information  created  by  the 

o 

application  of  the  optimizing  function  to  an  input  pool   for 

a   block.    Upon  exiting  a  block,  this  set  is  present  and  is 

used  in  performing  the  meet  operator  which  is  defined  below. 


A    f.iu.§.i  optimized   pool   (P  )   is   the   final   optimizing 

information  that  is  distinguished  as  the  meet  over  all  paths 

for   a   block   n.    This  pool  is  produced  by  the  global  flow 
analysis  algorithm  for  each  block. 


A  !£®£  °.E£E§;tor  is  a  binary  operation  denoted  a.  ,   on  P  x  P 

to  P,  where  P  is  the  set  of  all  possible   optimizing   pools. 

The   operator  combines  an  output  pool  (P  )  for  a  block  n  and 

o 

a  current  optimized  pool  (P  ')   of   an   immediate   successor 

c 

block  n1  to  produce  an  input  pool  (P  ')  for  n*. 

i 

p  ■  < —  pa   p  • 
i       o      c 

The  following  properties  must  hold  for  all  a,  b  and  c  in  P: 

1)  a  a  a  =  a  (idempotent) 

2)  a  A  b  -  b  a  a  (communitive) 

3)  a  A  (b  A  c)  =  (a  A  b)  A  c  (associative) 
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The   meet   operation   results  in  a  partial  ordering  upon  the 
optimization  elements:   a  <  b  if  and  only  if  a    b  =  b. 

An   02ii§izina[  function  maps  an  input  pool  to  an  output  pool 
and  must  have  the  homomorphism  property: 

f  (n,  a  A  b)  =  f  (n,  a)  A  f(n,  b) 

for  all  nodes  n  in  N  and  input  pools  a  and  b  in   P.    P   is 
assumed  to  contain  an  identity  element  such  that 

1  A  a  =  a  for  all  a  in  P. 


C.   A  GLOBAL  FLOW  ANALYSIS  ALGORITHM 

Although  a  basic  familiarization  with  Kildall's  flow 
analysis  algorithm  [28]  is  assumed,  some  fundamental  notions 
are  presented  below  for  completeness. 

The  global  flow  analysis  algorithm,  Algorithm  Q,  of 
Kildall  was  developed  for  use  in  the  compile  time 
optimization  of  object  code.  Kildall  [30]  has  pointed  out 
that  many  technigues  have  been  developed  to  optimize 
straight  line  code  while  others  take  into  account  program 
flow  branching.  The  Algorithm  Q  was  designed  to  permit 
extensions  of  straight  line  optimization  technigues  to  the 
global  case. 

The  Algorithm  Q  is  iterative  and  may  be  used  on  any 
program  flow  graph.  As  stated  previously,  the  algorithm 
propagates  data  from  block  to  block  until  the  propagated 
data  reaches  a  final  state  for  a  given  block.  This  final 
state  is  the  "meet  over  all  paths,"  called  the  MOP  solution, 
for  a  specified  block  and  provides  information  with  which 
the  block  can  be  optimized. 
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Informally  the  Algorithm  Q  can  be  stated  as: 

Select  a  node  from  the  list  of  nodes  to  be  processed, 
its  current  pool  will  be  used  as  input. 

Apply  the  optimizing  function  to  the  input  pool  and 
produce  an  output  pool. 

For  each  immediate  successor,  apply  the  meet  operation 
on  the  output  pool  and  the  successor's  current  pool.  If  the 
result  is  strictly  smaller  than  the  successor's  current 
pool,  then  reset  the  current  pool  to  this  result  and  add  the 
successor  to  the  nodes  to  be  processed  list. 

A  particular  form  of  the  Algorithm  Q  which  is 
appropriate  for  machine  implementation  is  stated  below, 

Q1  [initialize]        initialize  the  investigation 

list  L  to  the  entry  node 

L  <--  {n} 
and  set  the  current  pool 
of  n  to  empty. 

P   <—  0 

c 

Q2   [terminate?]  if   L    is   empty    then   halt, 

otherwise 

Q3   [select    a    node]  let    n    be   an    element   of 

L,    and    set 
L    <--    L   -     {n}  . 

QU   [apply   function]  apply    the   optimizing   function 

to    the   P      of    n    producing 
c 
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Q5  [ enter  nodes] 


Q6  [loop] 


output  information  P   for 

o 

the  node  n. 


for  each  n1  which 

is  an  immediate  successor  of 

nr  form  P  •  <--  PAP1 
i       o    c 

where  P  '  and  P  '  correspond 
i       c 

to  node  n» .   If  P  *  <  P  ' 

i     c 

and'  P  •  #  P  ■  then  set 
i     c 

P  »  <--  P  ' 

c       i 

and 

L  <—  L  0  {n1}  . 

go  to  Q3. 


As  an  example  of  the  Algorithm  Q,  consider  common 
subexpression  analysis.  The  pools  are  partitions  of 
available  expressions  which  are  in  the  same  class  if  they 
are  known  to  have  the  same  value.  For  example,  the  result 
of  analyzing  the  statements 

=  2; 
=  3; 

=  A  +  B; 

could    result    in   the    pool 

{A,    2     |    B,     3    |     Cr    A    +    3,    B    +    A,     2    +    3,    3    +    2,     5} 

where  "J"  is  the  delimiter  for  the  different  equivalence 
classes.  The  meet  operator  is  defined  as  a  simple 
intersection  operator  upon  the  partition  elements,  and  the 
optimizing  function  builds  new  equivalence  classes  from 
existing  equivalence  classes,  based  upon  operations  at  a 
particular  node. 
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Upon    termination   of    the   Algorithm   Q,   the   final 
optimization  pool   (P  )   for   each   node   can   be   found   by 

selecting   the   step   in  which  each  node  was  last  processed. 

The  current  pool   (P  )   at   this   step   will   be   the   final 

c 

optimizing  pool  (P  )  which  can  be  used  in  a  subsequent  pass 
through  the  block  to  perform  the  actual  program 
transformations. 


Consider  the  ALGOL  program  of  Figure  1.  The  basic 
blocks  are  A,  B,  C  and  D  with  the  entry  node  A  and 
corresponding  initial  optimizing  pool  set  to  empty.  Figure 
2   gives   the  P   for  the  program  of  Figure  1.   Only  a  single 

pass  of  each  block  was  required  since  there  are  no  loops   in 

the  program  flow  graph.  In  general,  the  algorithm  requires 
multiple  passes  on  some  blocks  to  produce  the  final 
optimizing  pool.  '  A  complete  and  formal  discussion  of  the 
global  flow  analysis  algorithm  by  Kildall  can  be  found  in 
[28,  29,  30]. 
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NODE 


A 

null 

B 

{x    1    y 

|    x  >   y} 

c 

{a,    b+c, 

c+b    j 

y.-  x} 

D 

{a,    h, 

b    +    c, 

c  +  a   | 

Yi    x} 

FIGUeE_2 
EXAMPLE  OF  FINAL  POOL  CONFIGURATION 
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II-   IMPLEMENTATION  OF  ALGORITHM  0. 

A.   CONCEPTUAL  OVERVIEW 

The  original  implementation  of  Algorithm  Q  was  given  by 
Kildall  [ 30  ],  and  this  project  is  basically  an  extension  of 
Kildall's  original  efforts. 

Implementation  of  the  global  flow  analysis  algorithm 
consists  of  three  separate  modules  written  in  XPL  [37].  The 
first  module,  the  "Code  Synthesis  Filter  Generator,"  or 
CSFG,  creates  tables  which  are  used  by  the  other  two 
modules.  A  set  of  procedures  known  as  the  "Code  Synthesis 
Filter  Emitters,"  CSFE,  constitute  the  second  module  which 
is  used  with  the  XPL  skeletal  compiler  generator.  The  CSFE 
produces  the  intermediate  language  which  is  to  be  optimized. 
A  particular  compiler  was  implemented  using  the  CSFE  for  a 
language  called  ALGOL-E,  which  is  described  elsewhere  [32]. 
The  third  module  implements  the  global  flow  analysis 
algorithm  itself,  and  is  called  the  "Code  Synthesis  Filter," 
or  CSF. 

Communication  between  the  CSFE  and  CSF  is  through  an 
intermediate  language  which  represents  a  program  in  Polish 
form.  The  CSF  reads  the  intermediate  language  from  the 
compiler  and  flags  optimization  information,  without 
actually  performing  any  program  transformations.  Figure  3 
outlines  the  flow  of  the  present  three  module  system. 

The  next  two  sections  contain  a  description  of  the  CSFG 
and  CSFE  as  implemented  by  Kildall  [30].  They  are  included 
here  to  ensure  the  completeness  of  the  later  CSF  description 
and  to  simplify  the  discussion  of  the  CSF  module. 
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1 .   Code  Synthesis  Fil t er  Generator  i.CSFG}_ 

Primarily,  the  function  of  the  CSFG  is  to  provide  a 
method  for  generating  a  customized  intermediate  language. 
The  output  of  CSFG  is  a  set  of  tables  which  define  an 
intermediate  language,  along  with  an  XPL  case  statement  used 
for  constant  propagation.  The  CSF  and  CSFE  are  driven  by 
these  tables.  The  intermediate  language  takes  the  form  of  a 
string  of  Polish  operators  and  operands,  augumented  with 
control  flow  information,  which  assumes  a  stack  model  for 
semantic  interpretation. 

The  CSFG  accepts  an  intermediate  language 
specification  determined  by  the  grammar  specified  in  TABLE 
I.   There  are  three  parts  to  the  language  specification: 

1)  <TYPE    SPECIFICATION 

2)  <OPCODE    SPECIFICATION^ 

3)  SIMPLIFICATION    SPECIFICATIONS 

<TYPE  SPECIFICATIONS  is  primarily  a  list  of  variable 
types.  Those  followed  by  an  asterisk  denote  data  elements 
that  occupy  "regions"  upon  execution  (i.e.,  an  array).  The 
following  types  are  predeclared: 

1)  DEFAULT  -  type  cannot  be  categorized, 

2)  LOC     -  location  variable  (i.e.,  address), 

3)  ENT     -  program  entry  point  or  branch 

operation  destination  point, 

4)  XIT     -  program  branch  point. 

An  XIT  (exit)  is  the  operand  of  a  branch 
instruction  while  the  ENT  (entry)  type  variable  is  placed  in 
the  Polish  sequence  at  the  destination  of  a  branch. 


22 


<OPCODE  SPECIFICATION  gives  the  descriptive 
characteristics  for  each  operator  allowed  in  the  Polish 
string.  The  following  characteristics  are  generated  for 
each  OPCODE: 

1)  operator  name 

2)  special  attributes  of  the  operator 

3)  number  of  operands  necessary 
to  perform  the  operation 

4)  type  of  each  operand 

5)  the  number  of  operands  resulting 
from  an  operator 

6)  type  of  the  resulting  operands 
of  an  operator. 

Special  operators  (REFER,  PASS  and  TOGGLF)  are  predefined 
and  require  a  LOC  type  argument  with  no  resulting  operands. 
These  operators  are  used  for  special  purposes  discussed  in 
Section  II. A. 2. 

Special  operator  attributes  aid  in  the  optimization 
process  by  indicating  operators  which  affect  program  flow  or 
which  have  special  .  effects  on  the  execution  stack. 
Specifically,  these  attributes  are: 

"U   1QAD  -  results  in  a  fetch  from  memory. 
The  operand  must  be  of  type  LOC 
(i.e.,  an  address  from  which  to  fetch) . 

2)   STORE  -  results  in  a  store  of  the  second 

operand  into  the  address  specified  by  the  first 
operand.   The  first  operand  must  be  type  LOC. 
The  stack  is  cleared  of  both  operands  upon 
completion. 
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TABLE   I 


GRAMMAR  FOP.  CSF  GENERATION  DESCRIPTION  LANGUAGE 


<CSF  SPEO  ::=  <TYPE  SPEO  <OPCODE  SPEO 
|  <TYPE  SPEO  <OPCODE  SPEO 
|   <SIMP  SPEO 

<TYPE  SPEO   ::=   <TYPE  HEAD>  <TYPE  ELEHENT>  ; 

<TYPE  HEAD>   ::=   <TYPES> 

|   <IYPE  HEAD>  <TYPE  ELEMENI>  , 


<TYPES> 


TYPES 


<TYPE  ELEMENT> 


<OPCODE  SPEO 


<OPCODE  KEAD> 


:=   <IDENTIFIEE> 
<IDENTIFIER>   * 

=   <OPCODE  HEAD>  <OPCODE  RULE>  ; 

=   <OPCODES> 

|   <OPCODE  HEAD>  <OPCODE  RULE> 


<OPCODES> 


=   OPCODES 


<OPCODE  RULE> 


<OPCODE  FORMAT> 


<OPCODE  PARMS> 


=   <OPCODE  FCRMAT> 

|   <OPCODE  FORMAT>  <TYPE> 

|   <OPCODE  FORMAT>   * 

::=   <OPCODE  PARMS>  =  > 

:=   <OPCODE  PARM  HEAD> 
j   <OPCODE  PARMS>  <TYPE> 
I   <OPCODE  PARMS>   * 


<OPCODE  PARM  HEAD> 


<IDENTIFIER> 
<IDENTIFIER> 
(<OPCODE  TYPE>) 
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TABLE   I  (CON'T) 


<OPCODE  TYPE> 


<SIMP  SPEO 


<SIMP  HEAO> 


=   LOAD 
STORE 
STORET 
DELETE 
DUPLIC 
CONV 
COMM 
EXCH 
COND 
UCOND 
GOSUB 
RETSUB 

=   <SIMP  HEAD>  <SIMP  RULE>  ; 

^   SIMPLIFICATIONS  > 

|   <SIMP  HEAD>  <SIMP  RULE>  , 


<SIKPLIFICATIONS>   ::=   SIMPLIFICATIONS 


<SIMP  RULE> 


=   <SIM?  FORMAI>  <IDENTIFIER> 
|   <SIMP  FORMAI>  <STRING> 


<SIMP  FORMAT> 


<SIMP  LEFT  PART> 


<SIKP  RULE  HEAD> 


<SIMP  LEFT  PART>  =  > 

-  <SIMP  RULE  HEAD>  <IDENTIFIER> 

|  <SIMP  RULE  hEAD>  <STRING> 

!  <SIMP  RULE  HEAD>  * 

=  <OPCODE> 

|  <SIHP  RULE  HEAD>  <IDENTIFIER> 

\  <SIMP  RULE  HEAD>  <STRING> 

I  <SIMP  RULE  HEAD>  * 
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3)   S10RET  -  the  same  as  STORE;  however,  the 

second  operand  is  retained  on  the  stack  for 
future  use. 

**)   DEL£T_5  -  removes  the  top  entry  from  the 
stack  (i.e.,  normally  an  operand). 

5)  DUPLIC  -  duplicates  the  top  entry  on  the  stack. 

6)  CONV  -  type  conversion  operators. 

7)  CO  MM  -  operator  is  communitive  in  all 
its  operands. 

8)  SXCH  -  exchanges  top  two  entries  on  the  stack. 

9)  COND  -  conditional  branch  operator. 

10)  UCOND  -  unconditional  branch  operator. 

11)  GOSl'B  -  branch  to  a  procedure. 

12)  RETSUB  -  return  branch  from  a  procedure 
to  the  calling  point. 

SIMPLIFICATION  SPECIFICATION  defines  acceptable 
transformations  which  may  be  performed  on  the  operators. 
Each  transformation  is  of  the  form 

1)  operator 

2)  operands 

3)  result  operands. 


For  example: 


ADD        "0"       A    =>    A 


indicates  that  the  ADD  operator  would  result  in  the  operand 
A  if  one  operand  is  zero,  where  A  represents  any  arbitrary 
expression. 
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TABLE  II  outlines  the  particular  intermediate 
language  description  used  for  the  ALGOL-E  compiler.  TABLE 
III  provides  the  complete  output  from  the  CSFG  for  this 
description. 

2-   Code  Synthesis  Filter  Emitters  1CSFFJ_ 

The  CSFE  is  a  set  of  XPL  procedures  that  is  included 
as  an  integral  part  of  the  XPL  skeletal  compiler  for  any 
particular  compiler  generation.  The  CSFE  uses  the  tables 
produced  by  the  CSFG  to  generate  the  intermediate  language 
which  is  compatible  with  the  optimizer,  but  tailored  to  the 
specific  source  language  and  compiler  being  developed. 

As  discussed  above,  the  intermediate  language  is  a 
Polish  sequence  consisting  of  a  string  of  operators, 
operands,  and  branch  point  references.  A  table  of 
referenced  constants  is  also  included  in  the  Polish 
sequence.  Figure  4  shows  the  format  of  the  CSFE  output. 
Individual  fields  are: 

1)  OFFSET (8b)  -  used  for  diagnostic  reporting. 

2)  OPCODE/TYPE (8b)  -  designates  the  opcodes  if 
the  entry  is  an  operator,  or  designates 
the  type  of  operand  if  the  entry  is  an 
operand. 

3)  C(1b)  -  if  set,  indicates  a  reference  to  the 
constant  tables;  if  not,  reference  is  to 

an  address. 

4)  ADDR(15b)  -  address  field  of  operands  in  the 
intermediate  language. 
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TABLE   II 
A  SAMPLE  CSF  GENERATOR  SPECIFICATION  FOR  ALGOL-E 

/*  $OUT2UT  PRINTED  TABLES  */ 

/*  SPONCH  TABLES  */ 

TYPES  INT, REAL, BOOL, I ARR A Y*,R ARRAY*; 

OPCODES 

TRU  (CONV)  REAL  =>  INT  /*  TRUNCATE  TAKES  */ 

/*  REAL  TO  INTEGER  */ 

RND  (CONV)  REAL  =>  INT  /*  RND  IS  THE  */ 

/*  ROUND  OPERATOR  */ 

FLT  (CONV)  INT  =>  REAL,  /*  FLT  IS  THE  */ 

/*  FLOAT  FUNCTION  */ 

ADD  (COHM)  INT  INT  =>  INT,  /*  INTEGER  ADDITION  */ 

/*  (COMMUTATIVE)  */ 

RADD  (COMM)  REAL  REAL  =>  REAL,      /*  REAL  ADDITION  */ 

SUB  INT  INT  =>  INT,  /*  INTEGER  */ 

/*  SUBTRACTION  */ 

RSUB  REAL  REAL  =>  REAL,  /*  REAL  SUBTRACTION  */ 

MUL  (COMM)  INT  INT  =>  INT,  /*  INTEGER  */ 

/*  MULTIPLICATION  */ 

RMUL  (COMM)  REAL  REAL  =>  REAL,      /*  REAL  SUBTRACTION  */ 

DIV  INT  INT  =>  INT,  /*  INTEGER  DIVISION   */ 

RDIV  REAL  REAL  =>  REAL,  /*  REAL  DIVISION   */ 

EXP  INT  INT  =>  INT,  /*  INTEGER  */ 

/*  EXPONENTIATION  */ 

RIXP  REAL  INT  =>  REAL,  /*  REAL  TO  INTEGER   */ 

/*  EXPONENT  */ 

IRXP  INT  REAL  =>  REAL,  /*  INTEGER  TO  REAL   */ 

/*  EXPONENT  */ 

RRXP  REAL  REAL  ^>  REAL,  /*  REAL  TO  REAL   */ 

/*  EXPONENT  */ 
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TABLE   II  (CON'T) 


LSS  *  *  =>  BOOL, 

LEQ  *  *  =>  BOOL, 

EQL  (COMM)  *  *  =>  BOOL, 

NEQ  *  *  =>  BOOL, 

GEQ  *  *  =>  BOOL, 

GTR  *  *  =>  BOOL, 

INEG  INT  =>  INT, 

RNEG  REAL  =>  REAL, 

NOT  BOOL  =>  BOOL, 

AND  (COMM)  BOOL  BOOL  =>  BOOL, 

BOR  (COM)  BOOL  BOOL  =>  BOOL, 

LOD  (LOAD)  LOC  =>  *  , 

STO  (STORST)  LOC  *  =>  *, 

STD  (STORE)  LOC  *  =>  , 

DEL  (DELETE)  *  =>  , 

DUP  (DUPLIC)   =>  *, 

XCH  (EXCH)  =>  , 

HLT  =>  , 

BRS  (UCOND)  XIT  =>  , 

BSC  (COMD)  BOOL  XIT  =  >  , 

NOP  =>  , 


/*  LESS  .THAN  TEST  */ 

/*  LESS  THAN  OR  */ 

/*  EQUAL  TEST  */ 

/*  EQUAL  TO  TEST  */ 

/*  NOT  EQUAL  TO  TEST  */ 

/*  GREATER  THAN  OR  */ 

/*  EQUAL  TO  */ 

/*  GREATER  THAN  TEST  */ 

/*  INTEGER   NEGATION  */ 

/*  REAL  NEGATION  */ 

/*  BOOLEAN  NOT  */ 

/*  BOOLEAN  AND  */ 

/*  BOOLEAN  OR  */ 

/*  LOAD  FROM  ADDRESS  */ 

/*  STORE  AND  RETAIN  */ 

/*  VALUE  */ 

/*  STORE  AND  REMOVE  */ 

/*  VALUE  */ 

/*  DELETE  TOP  */ 

/*  ELEMENT  */ 

/*  DUPLICATE  */ 

/*  ELEMENT  */ 

/*  EXCHANGE  LAST  */ 

/*  ELEMENTS  */ 

/*  PROGRAM  HALT  */ 

/*  UNCONDITIONAL  */ 

/*  BRANCH  */ 

/*  CONDITIONAL  */ 

/*  BRANCH  */ 

/*  NO  OPERATION  */ 
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TABLE   II  (CON'T) 


PRO  (GOSUB)  XII  =>  , 

RTN  (RETSU3)  =>  , 

GET  INT  =>  LOC, 
RET  LOC  =>  , 
RRD  =>  REAL, 
IRD  =>  INT, 
BRD  =>  BOOL, 
HEVx*  =>  , 
DKP  =>  , 
TAB  INT  =>  , 
SUP  *  =>  ; 
SIMPLIFICATIONS 
ADD  "0"  A  =>  A, 
RADD  "0"  A  =>  A, 
MUL  "0"  A  =>  "0", 
RMUL  "0"  A  =>  "0", 
MUL  "1"  A  =>  A, 
RMUL  "1"  A  =>  A, 
SUB    A  A  =>  "0", 
RSUB  A  A  =>  "0", 
DIV  "0"  A  =>  "0"  , 
RDIV  "0"  A  =>  "0"  , 
EXP  A  »0'»  =>  "1"  , 
RIXP  A  "0"  =>  "1"  , 
IRXP  A  "0"  =  >  "1"  , 
RRXP  A  "0"  =>  "1"  , 
EXP  A  "1"  =>  A  , 
RIXP  A  "1"  =>  A, 
IRXP  A  "1"  =>  A, 
RRXP  A  "1"  =>  A, 


/*  PROCEDURE    */ 
/*  TRANSFER  */ 
/*  RETURN  FROM  */ 
/*  PROCEDURE  */ 
/*  GET  STORAGE  */ 
/*  RETURN  STORAGE  */ 
/*  REAL  READ  */ 
/*  INTEGER  READ  */ 
/*  BOOLEAN  READ  */ 
/*  WRITE  VARIABLE  */ 
/*  DUMP  BUFFER  */ 
/*  TABULATE  */ 


/*  0+A=A+O=A  */ 

/*  0*A=A*0=0  */ 

/*  1*A=A*1=A  */ 

/*  A-A=  */ 

/*  0/A  =  0  */ 
/*  0/A  =  0  */ 
/*  a**0  =  1  */ 


/*  A  **  1  =  A  V 
/*  A  **  1  =  a  */ 


30 


TABLE   III 
CSFG  OUTPUT  FOR  ALGOL-E 

DECLARE (NULL,  DEFAULT,  LOC,  ENT,  XIT,  INT,  REAL,  BOOL,  IARRA 
Y,  RARRAY)  BIT  (8)  ; 
DECLARE  NTYPES  LITERALLY ' 9 ■ ; 

DECLARE (REFER,  TOGGLE,  PASS,  TRU,  RND,  FLT,  ADD,  RADD,  SUB, 
RSUB,  MUL,  RMUL,  DIV,  RDIV,  EXP,  RIXP,  IRXP,  RRXP,  LSS,  LEQ, 
EQL,  NEQ,  GEQ,  GTR,  INEG,  RNEG,  NTO,  AND,  BOR,  LOD,  STO,  ST 
D,  DEL,  DUP,  XCH,  HLT,  BRS,  BSC,  NOP,  PRO,  RTN,  GET,  RET,  RR 
D,  IRD,  3RD,  WRV,  DtlP,  TAB,  SUP)  BIT  (8); 
DECLARE  NOPCODES  LITERALLY ■ 50 ' ; 
DECLARE  OPCODES  CHARACTER  INITIAL  ( 

•NULLDEFAULTLOCENTXITINTREALBOOLIARRAYRARRAYREFERTOGGLEPASST 
RURNDFLTADDR ADDS U BRS UBHULRriULDIVRDI VEX PRIX PI RXPXPRRXPLSSLEQE 
QLNEQGEQGTRINEGRNEGNOTANDBORLODSTOSTDDELDUPXCHHLTBRSBSCNOPPR 
ORTNGETRETRRDIRDBRDWRVDMPTABSUP') ; 

DECLARE  OPRANGE(60)  BIT(8)  INITIALfO,  4,  11,  14,  17,  20,  23, 
27,  31,  37,  43,  48,  54,  58,  61,  64,  67,  70,  74,  77,  81,  84, 
88,  91,  95,  98,  102,  106,  110,  113,  116,  119,  122,  125,  128, 
132,  136,  139,  142,  145,  148,  151,  154,  157,  160,  163,  166, 
169,  172,  175,  178,  181,  184,  187,  190,  193,  196,  199,  202, 
205,  205) ; 
DECLARE  OP_TYPE(59)  BIT  (8)  INITIAL(0,  0,  0,  0,  0,  0,   0,   0, 

1,  1,  0,  0,  0,  7,  7,  7,  8,  8,  0,  0,  8,  8,  0,  0,  0,  0,  0,  0, 
0,  0,  8,  0,  0,  0,  0,  0,  0,  8,  8,  2,  4,  3,  5,  6,  9,  0,  11, 
10,  0,  12,  13,  0,  0,  0,  0,  0,  0,  0,  0,  0); 

DECLARE  OP_DEGL(59)  BIT  (8)  INITIAL(0,  0,  0,  0,  0,  0,   0,  0, 

0,   0,  0,  0,  0,  1,  1,  1,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2, 

2,  2,  2,  2,  2,  2,  1,  1,  1,  2,  2,  1,  2,  2,  1,  0,  0,  0,  1,  2, 
0,  1,  0,  1,  1,  0,  0,  0,  1,  0,  1,  1)  ; 
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TABLE   III  (CON'T) 

DECLARE  OP_DEGR(59)  BIT(8)  INITIAL(0,  Of  0,  0,  0,  0,   0,   0, 

0,  0,  0,  0,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1, 

1,  1,  1,  1,  1,  1/  1,  1/  1,  1/  1,  1,  1,  0,  0,  1f  0,  0r  0,   0, 

0,  0,  0,  1,  0,  1,  1,  1,  0,  0,  0,  0)  ; 

DECLARE  OP_INDEX(60)  BIT(8)   INITIAL(0,  1,  1,  1,  1,  1,  1,  1, 

1,  1,  1,  1,  1,  1,  3,  5,  7,  10,  13,  16,  19,  22,  25,  28,  31, 
34,  37,  40,  43,  46,  49,  52,  55,  58,  61,  63,  65,  67,  70,  73, 
75,  78,  80,  81,  82,  82,  82,  83,  85,  85,  86,  86,  88,  89,  90, 
91,  92,  93,  93,  94,  95)  ; 

DECLARE   OP_INFO(17Q)  BIT(16)  INITIAL(0,    6,  5,  6,  5,  5,  6, 

5,  5,  5,  6,  6,  6,  5,  5,  5,  6,  6,  6,  5,  S„    5,  6,  6,  6,  5,  5, 

5,   6,  6,  6,  5,  5,  5,  6,  5,  6,  5,  6,  6,  6,  6,  6,  1,  1,  7,  1, 

1,  7,  1,  1,  7,  1,  1,  7,  1,  13  7,  1,  1,  7,  5,  5,  6,  6,  7,  7, 
7,   7,  7,  7,  7,  7,  2,  1,  2,  1,  1,  2,  1,  1,  1,  4,  7,  4,  4,  5, 

2,  2,  6,  5,  7,  1,  t>,  1,  0,  3,  2,  2,  0,  3,  2,  2,  111,   3,  2, 

3,  115,  3,  2,  3,  0,  5,  2,  2,  0,  5,  2,  2,  0,  2,  2,  3,  0,  2, 
2,  3,  0,  3,  2,  3,  0,  3,  2,  3,  151,  2,  3,  5,  155,  2,  3,  5, 
159,  2,  3,  5,  163,  2,  3,  5,  0,  2,  5,  2,  0,  2,  5,  2,  0,  2,  5, 
2,  167,  2,  5,  2,  0,  2,  5,  2) ; 

DECLARE  SIMP_INDEX(59)  BIT  (8)  INITIAL <0,  0,  0,  0,  0,  0,  0, 
0,  0,  0,  0,  0,  0,  0,  0,  0,  95,  99,  119,  123,  103,  107,  127, 
131  135,  139,  143,  147,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 
0,  08  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0)  ; 
DECLARE  OP_STR(2)  CHARACTER  INITIAL^  ',  '0',  ■  1*); 
****  *#*#  ****  **#*  **##  #*## 

DECLARE (NULL,  DEFAULT,  LOC,  EKT,  XIT,  INT,  REAL,  BOOL,  IARRA 

Y,  RARRAY)   BIT(8)  ; 

DECLARE  NTYPES  LITERALLY^'; 
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TABLE  III  (CON'T) 

DECLARE (REFER,  TOGGLE,  PASS,  TRU,  RND,  FLT,  ADD,  RADD,  SUB, 
RSUB,  MUL,  R11UL,  DIV,  RDIV,  EXP,  RIXP,  IRXP,  RRXP,  LSS,  LEQ, 
EQL,  NSQ,  GEO.,  GTR,  INEG,  RNEG,  NOT,  AND,  BOR,  LOD,  STO,  ST 
D,  DEL,  DUP,  XCH,  HLT,  BRS,  BSC,  NOP,  PRO,  RTN,  GET,  RET,  RR 
D,  IRD,  BRD,  WRV,  DMP,  TAB,  SUP)  BIT  (8); 
DECLARE  NOPCODES  LITERALLY ' 50  *  ; 
DECLARE  OPCODES  CHARACTER  INITIAL  ( 

•NULLDEFAULTLOCENTXITINTREALBOOLIARRAYRARRAYREFERTOGGLEPASST 
RURNDFLTADDR ADDS UBRSUBMULRMULDI VRDI VEX PRI XPIRXPRRXP LSS LSQEQL 
NEQGEQGTRINEGRNEGN0TAND30RL0DST0STDDELDUPXCHHLTBRS3SCH0PPR0R 
TNGETRETRRDIRDBRDWRVDMPTABSUP') ; 

DECLARE  OPRANGE(oO)  BIT(8)  INITIAL(0,  '4,  11,  14,  17,  20, 
23,  27,  31,  37,  43,  48,  54,  58,  61,  64,  67,  70,  74,  77,  8-1, 
84,  88,  91,  95,  98,  102,  106,  110,  113,  116,  119,  122,  125, 
128,  132,  136,  139,  142,  145,  148,  151,  154,  157,  160,  163, 
166,  169,  172,  175,  178,  181,  184,  187,  190,  193,  196,  199, 
202,  205,  208) ; 
DECLARE   OP_TYPE(59)  BIT(8)  INITIAL(0,   0,  0,  0,  0,  0,  0,  0, 

1,  1,  0,  0,  0,  7,  7,  7,  8,  8,  0,  0,  8,  8,  0,  0,  0,  0,  0,  0, 
0,  0,  8,  0,  0,  0,  0,  0,  0,  8,  8,  2,  4,  3,  5,  6,  9,  0,  11, 
10,  0,  12,  13,  08  0,  0,  0,  0,  0,  0,  0,  0)  ; 

DECLARE       OP_DEGL(59)     BIT  (8)     INITIAL(0,       0r     0,    0,    0,     0,    0,  0, 

0,    0,    0,    0,    0,    1,     1,     1,    2,    2,    2,     2,    2,    2,     2,    2,    2,    2,    2,  2, 

2,  2,  2,  2,  2,  2,  1,  1,  1,  2,  2,  1,  2,  2,  1,  0,  0,  0,  1,  2, 
0,     1,    0,     1,     1,    0,     0,     0,     1,     0,     1,     1)  ; 

DECLARE       OP_DEGR(59)     BIT (8)     INITIAL(0,       0,     0,    0,    0,     0,    0,    0, 

0,  0,    0,     0,     0,     1,     1,     1,     1,     1,     1,     1,     1,     1,     1,     1,     1,     1,     1,       1, 

1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  0,  1,  0,  0,  0,  0, 
0,    0,    0,     1,     0,    1,     1,     1,    0,    0,    0,    0) ; 
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TABLE  III  (CON'T) 


DECLARE   OP_INDEX (60)  BIT(8)  INITIAL (0 ,  1,  1,  1,  1,  1,  1 ,  1, 

1,  1f  1,  1,  1,  1,  3,  5,  7,  10,  13,  16,  19,  22,  25,  28,  31, 
34,  37,  40,  43,  46,  49,  52,  55,  58,  61,  63,  65,  67,  70,  73, 
75,  78,  30,  31,  82,  82,  82,  83,  85,  85,  86,  86,  88,  89,  90, 
91,  92,  93,  94,  95) ; 

DECLARE  OP_INFO(170)  BIT(16)  INITIAL  (0,  6,  5,  6,  5,  5,  6, 
5,  5,  5,  6,  6,  6,  5,  5,  5,  6,  6,  6,  5,  5,  5,  6,  6,  6,  5,  5, 
5,  6,  .6,  6,  5,  5,  5,  6,  5,  6,  5,  6,  6,  6,  6,  6,  1,  1,  7,  1, 
1/  7,  1,  1,  7,  1,  1,  7,  1,  1,  7,  1,  1,  7,  5,  5,  6,  6,  7,  7, 
7,  7,  7,  7,  7,  7,  2,  1,  2,  1,  1,  2,  1,  1,  1,  4,  7,  4,  4,   5, 

2,  2,   6,  5,  7,  1,  5,  1,  0,  3,  2,  2,  0,  3,  2,    2,  111,  3,  2, 

3,  115,  3,  2,  3,  0,  5,  2,  2,  0,  5,  2,  2,  0,  2,  2,  3,  0,  2, 
2,  3,  0,  3,  2,  3,  0,  3,  2,  3,  151,  2,  3,  5,  155,  2,  3,  5, 
159,  2,  3,  5,  163,  2,  3,  5,  0,  2,  5,  2,  0,  2,  5,  2,  0,  2,  5, 
2,   167,  2,  5,  2,  0,  2,  5,  2)  ; 

DECLARE  SIKP_INDEX (59)  BII(8)  INITIAL(0,  0,  0,  0,  0,  0,  0, 
0,  0,  0,  0,  0,  0,  0,  0,  0,  95,  99,  119,  123,  103,  107,127, 
131,  135,  139,  143,  147,  0,  0,  0,  08  08  0,  0,  0,  0,  0,  0,  0, 
0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0)  ; 
DECLARE  OP_STR(2)  CHARACTER  INITIAL (,l,  'O',  '1'); 
/*  CASE  0:  NULL  */ 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


1:  DEFAULT  =>   (TYPE)  */ 


2:  LOC  =>   (TYPE)  */ 


3:  ENT  =>   (TYPE)  */ 


4:  XIT  =>   (TYPE)  */ 


5:  INT  =>   (TYPE)  */ 


34 


TABLE    III     (CON'T) 
/*    CASE    6:    REAL    =>       (TYPE)     */ 

f 

/*    CASE    7:    BOOL    =>       (TYPE)     */ 
/*    CASE    8:    IARRAY    =>        (TYPE)     */ 

f 

/*    CASE    9:    RARRAY    =>       (TYPE)     */ 
/*    CASE    9:    RARRAY    =>        (TYPE)     */ 

9 

/*    CASE    10:     REFER    =>        (OPCODE)     */ 

9 

/*    CASE    11:    TOGGLE    =>        (OPCODE)     */ 

9 

/*    CASE    12:    PASS    =>       (OPCODE)     */ 

< 
/*    CASE    13:    TRU    REAL    =>    INT       (OPCODE)     */ 

■ 

/*    CASS    14:    END    REAL    =>    INT       (OPCODE)     */ 

« 
9 

/*    CASE    15:     FLT    INT    =>    REAL       (OPCODE)     */ 

/*    CASE    16:    ADD    INT    INT    =>    INT       (OPCODE         */ 

9 

/*    CASE    17:    RADD    REAL    REAL    =>    REAL        (OPCODE)     */ 
/*    CASE    18:    SUB    INT    INT    =>    INT       (OPCODE)        */ 

9 

/*    CASE    19:    RS'JB    REAL    REAL    =>    REAL        (OPCODE)     */ 

9 

/*    CASE    20:    MUL    INT    INT    =>    INT       (OPCODE)        */ 

9 

/*    CASE    21:     RMUL    REAL    REAL    =  >    REAL        (OPCODE)*/ 
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TABLE  III  (CON'T) 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


22:  DIV  INT  INT  =>  INT   (OPCODE)   */ 


23:  RDIV  REAL  REAL  =>  REAL   (OPCODE)  */ 


24:  EXP  INT  INT  =>  INT   (OPCODE)   */ 


25:  RIXP  REAL  INT  =>  REAL   (OPCODE)  */ 


26:  IRXP  INT  REAL  =>  REAL   (OPCODE)  */ 


27:  RRXP  REAL  REAL  =>  REAL   (OPCODE)  */ 


28:  LSS  DEFAULT  DEFAULT  =>  BOOL   (OPCODE)  */ 


29:  LEQ  DEFAULT  DEFAULT  =  >  BOOL   (OPCODE)  */ 


30:  EQL  DEFAULT  DEFAULT  =>  BOOL   (OPCODE)  */ 


31:  NEQ  DEFAULT  DEFAULT  =>  BOOL   (OPCODE)  */ 


32:  GEQ  DEFAULT  DEFAULT  =>  BOOL   (OPCODE)  */ 


33:  GTR  DEFAULT  DEFAULT  =>  BOOL   (OPCODE)  */ 


34:  INEG  INT  =>  INT   (OPCODE)  */ 


35:  RNEG  REAL  =>  REAL   (OPCODE)     */ 


36:  NOT  BOOL  =>  BOOL   (OPCODE)     */ 


/*  CASE  37:  AND  BOOL  BOOL  =>  BOOL   (OPCODE  */ 


36 


TABLE  III  (CON'T) 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


/*  CASE 


38:  30R  BOOL  BOOL  =>  BOOL   (OPCODE  */ 


39:  LOD  LOC  =>  DEFAULT   (OPCODE    */ 


40:  STO  LOC  DEFAULT  =  >  DEFAULT   (OPCODE)  */ 


41:  STD  LOC  DEFAULT  =>  (OPCODE)  */ 


42:  DEL  DEFAULT  =>   (OPCODE)  */ 


43:  DUP  =>  DEFAULT   (OPCODE)  */ 


44:  XCH  =>   (OPCODE)  */ 


45:  HLT  =>   (OPCODE)  */ 


46:  BRS  XIT  =>   (OPCODE)  */ 


47:  BSC  BOOL  XIT  =>   (OPCODE)  */ 


48:  NOP  =>   (OPCODR)  */ 


49:  PRO  XIT  =>   (OPCODE)  */ 


50:  RTN  =>   (OPCODE)  */ 


51:  GET  INT  =>  LOC   (OPCODE)  */ 


52:  RET  LOC  =>   (OPCODE)  */ 


/*  CASE  53:  RRD  =>  REAL   (OPCODE)  */ 
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TABLE  III  (CON'T) 


/*  CASE 


54:  IRD  =>  INT   (OPCODE)  */ 


/*  CASE 


55:  BRD  =>  BOOL   (OPCODE)  */ 


/*  CASE 


56:  WRV  DEFAULT  =>   (OPCODE)  */ 


/*  CASE 


57:  DMP  =>   (OPCODE)  */ 


/*  CASE 


58:  TAB  INT  =>   (OPCODE)  */ 


/*  CASE 


59:  SUP  DEFAULT  =>   (OPCODE)  */ 
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32  BITS 
8b      8b      1b    15b 
OFFSET   OP/TYPE    C    ADDR 


1 

2 

3 

XII 

K    +    2 

K 

K+1 
►K+2 

ENT 

0 

CONSTANT  TABLE 


FIGURE_4 
INTERMEDIATE  LANGUAGE  OUTPUT  FORMAT  FROM  CSFE 
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The  CONSTANT  TABLE  begins  with  a  count  of  the  number 
of  constants.   An  entry  then  follows  for  each  constant  as: 

BYTE  18b]_  CONTEND 

0  number  of  characters  for  the 

constant 

1  type  of  constant 

2-3  address  assigned  to  the 

constant 
4  +  i  character  string  of  length 

i  representing  the  constant. 

The  basic  CSFE  procedures  are  as  listed  with  calling 

values  of: 

o  -  operator 

t  -  type 

s  -  character  string 

14 
x  -  integer  constant  0  <  x  <  2 

1)  EMITO(o)  -  places  a  reference  to  an 
operator  in  the  Polish  sequence. 

2)  EMITC(s,t)  -  places  a  reference  to  the 
constant  string  s  of  type  t  into  the  Polish 
sequence. 

3)  EMITA(x)  -  places  a  reference  to 

address  x  into  the  Polish  sequence.   Type  LOC 
is  associated  with  the  address. 

4)  EMITAC(s,t)  -  places  a  reference  to  the 
constant  string  s  of  type  t  into  tha 
Polish  sequence. 
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5)   EMITI  (t)  -  places  a  reference  to  an  operand 

of  type  t  with  an  indeterminate  value  into  the 
Polish  sequence. 

Additionally,  the  CSFE  handles  "branch  point 
resolution."  Branch  points  are  referenced  symbolically  in 
the  Polish  sequence  during  compilation.  A  particular  point 
in  the  sequence  can  be  given  a  symbolic  name  for  future 
reference.  Whenever  a  symbolic  location  is  defined,  an  ENT 
is  inserted.  Furthermore,  references  can  be  made  to 
locations  which  have  not  as  yet  been  compiled,  called  an 
"unresolved  reference."  When  an  unresolved  reference 
occurs,  the  CSFE  "resolves"  the  reference  by  inserting  an 
address  in  the  ADDR  field  of  all  XIT  operands  that 
previously  referenced  the  symbol. 

The  CSFE  procedures  for  label  processing  are: 

1)  SHITE  (s)  -  ENT  type  variable  which  resolves 
the  top-most  stacked  reference  to  s. 

2)  EMITB(s)  -  backward  reference  to  a  label 
s  which  has  already  occurred. 

3)  EHITF(s)  -  forward  branch  point  which  has 
not  occurred. 

4)  EMITPE(s)  -  ENT  type  variable  that  does. 
not  resolve  any  references  to  label  s, 
called  a  "push  down  entry." 

5)  EMITPF  (s)  -  forward  reference  to  label  s 
which  "pushes"  all  previous  references 

to  label  s.   An  EMITE(s)  will  resolve  this 
reference  but  not  the  references  which  were 
"pushed  down." 
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6)  SAVELAB  -  saves  the  current  state  of 

the  label  stack.   Used  to  process  inner  loops 
such  as  embedded  for-loops. 

7)  RESTORELAB  -  restores  the  label  stack  to 
the  configuration  present  upon  the  last  call 
to  SAVELAB. 

Additional   utility   procedures   are  also  present  as 
follows: 

1)  EMITR(x)  -  places  a  REFER  operator  into 
the  Polish  sequence.   The  ADDR  field  is 
set  to  x.   This  is  normally  called  at  each 
card  boundary  in  the  source  program  with  a 
line  number  of  x;  therefore,  if  an  error 
condition  is  detected,  the  Polish  sequence 
is  scanned  backwards  to  the  last  REFER.   The 

at  the  point  of  error  are  combined  to  pinpoint 
the  error  in  the  original  source  program. 

2)  EMITP  (x)  -  places  a  PASS  operator  with 

an  ADDR  field  of  x  into  the  Polish  sequence. 
The  PASS  operator  is  ignored  by  the  CSF. 
Thus,  the  PASS  operator  can  be  used  to  pass 
information  to  subsequent  modules. 

3)  EMITT(x)  -  places  a  TOG  operator  with  an 
ADDR  -field  of  x  into  the  Polish  sequence. 
The  x  value  is  a  bit  word  representation 

of  toggle  flags  that  can  be  set  on  the  compile 
pass  for  later  detection  by  CSF.      Compilation 
toggles  are  enabled  or  disabled  in  the 
ALGOL-E  implementation  by: 
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a)  $CODE  -  results  in  the  Polish 
sequence  being  interlisted  with 
the  source  program. 

b)  STABLES  -  causes  CSF  to  give  a 
full  trace  by  table  dumps  of  the 
optimization  process. 

c)  $EXEC  -  causes  a  partial  trace  of 
the  CSF  analysis. 

d)  $TRACE  -  causes  CSF  to  give  a 
partial  trace  of  the  optimization 
process. 

During  the  interlisting  of  the  Polish  sequence, 
(i.e.,  SCODE  is  selected),  each  line  of  the  code  trace  will 
hold 

1)  OFFSET  field  -  not  used 

2)  OPCODE/TYPE  -  operator  or  operand  type 

3)  C  field  -  constant  indicator 
H)  ADDR  field  -  address 

5)   32-bit  word  in  hexadecimal  format. 

A  "+"  before  a  line  indicates  the  resolution  of  a 
forward  reference  while  a  "++"  indicates  that  the  entry 
point  at  that  line  number  has  caused  the  resolution  of  a 
forward  reference  or  has  been  referenced  again  as  a  backward 
reference.  The  ADDR  field  of  each  ENT  variable  is 
incremented  on  each  reference  from  an  XIT  variable. 
Therefore,  it  contains  the  number  of  branches  into  the 
location  of  ENT.  TABLE  IV  is  an  example  of  the  code 
interlisting  option. 
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The  "constant  table"  is  appended  to  the  end  of  the 
Polish  sequence.  This  table  provides  a  character  string 
representation  of  each  constant  encountered  in  the  source 
program.  The  entire  code  file  (i.e.,  Polish  sequence  and 
constant  table)  is  passed  to  the  CSF  at  the  end  of 
compilation. 

B.   OPTIMIZING  FUNCTIONS  INCORPORATED  IN  THE  CSF 

Before  giving  the  details  of  the  CSF  implementation,  it 
is  necessary  to  describe  the  optimizing  function  and  meet 
operator  currently  used.  Information  for  three  forms  of 
optimization  is  collected: 

1)  Constant  Propagation 

2)  Simplifying  Formal  Identities 

3)  Common  Subexpression  Elimination. 

1 .   Constant  P rop_agat io n 

The  pool  associated  with  each  basic  block  is  a 
partition  of  the  program  expressions.  Constant  propagation 
requires  that  a  constant  indicator  be  associated  with  every 
equivalent  class.   For.  example: 

A  :=  2; 
B  :=  3; 
C  :=  A  +  B; 

could  be  rewritten  as 

C  :=  5; 

since  A  and  B  are  both  known  constants.  Therefore,  the  pool 
associated  with  each  node  is  a  partition  with  a  constant 
indicator  for  each  equivalence  class.  The  meet  operator 
combines  the  constant  indicators. 
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TABLE  IV 
ALGOL-E  CODE  INTERLISTED  PROGRAM 


CARD       BL| 

1    I    ol 

^EXECUTE 
►SCCDE 
*»$TABLES 


SYL 


-CARD  NUMBER 
'BLOCK  NUMBER 


COMMENT 


TEST    PROGRAM    0     10 


£8B^TI0N      OFFSET     OPCODE/TYPE 

2*"      O-*"^       I  TOGGLE 
2     IBEGIN    LOCAL    A,B,C,D,E 

2    1  C   :=  2;    -< 


£ 


I  ELD 

5  8 


POLISH   EL 
LD__3DbRESS 


EMEN 


MIEmSl  FORM 
OOOB0132  '-*""" 


COMPILER 
CONTROL   CARDS 

7    I    II 


3 
4 

t 

7 

8 
9 
10 


8    I    II       10    I 


11 
12 
13 
14 
15 
16 


9    I     II       16    I 


10    I     II 


LZ 


11   I   H 


►  17 

18 
19 
20 
21 
22 
23 
2<* 
25 
26 

26  I 
27 
28 
29 
30 
31 
32 
33 
34 

3  5 

♦  17 

36 

37 

♦    23 

+  +  37 

37 


WHILE 


=    3 


LOC 
INT 
STO 
DEL 


LOC 
INT 
STO 
DEL 
REACH  A,  3) 


38  0 

39  0 

40  0 

41  0 

42  0 

43  0 

44  0 

45  0 

12  I  II   45  IEND 

13  l|   45  I  EOF-"* 

CODE  FILE  COPIEP  (45  WORDS) 
CONSTANT  TABLE  COPIED  (4  WORDS) 

2  RECORDS  WRITTEN  INTO  FILE  1 

END  OF  COMPILATION  FEBRUARY  9,  1975. 

13  CARDS  WERE  READ. 

NO  ERRORS  WERE  DETECTED. 


LOC 

INT 

STD 

LOC 

INT 

STD 

A  GTR 

ENT 

LOC 

LOD 

LOC 

LOD 

GTR 

XIT 

XIT 

BSC 

ENT 

=  C 

LOC 

LOC 

LOD 

LOC 

LOD 

ADD 

STO 

DEL 

XIT 

ENT 

BRS 

ENT 

XIT 

ENT 

0  +  C; 

LOC 
LOC 
LOD 
LOC 
LOD 
ADD 
STO 
DEL 


B  DO  -<- 


+  o;  ««*- 


00020093 
00053001 
00230000 
002AOOOO 


00020004 
00053002 
00280000 
002A0003 


00023001 
00050000 
00290003 
00020002 
00050000 
00290033 


00033003 
00020301 
00270003 
00020032 
00273003 
00210003 
00040003 
0034C01A 
002F0003 
00033001 


00023 
00020 
00270 
00020 
00270 
00100 
00280 
002A3 
00040 
00033 
002E3 
00030 
00040 
00030 


002 

033 

000 

004 

003 

003 

000 

003 

Oil 

031 

003 

003 

0  2  5- 

001 


0C023005 
00020004 
00270000 
00020003 
00270000 
00100003 
00280000 
OO2A0000 


ALGOL-E  SOURCE 

BEGIN  LOCAL  A,B,C,D,E; 

C  :=  2; 

D  :=  3; 

READ  (A,B); 
/     WHILE  A  GTR  B  DO 
>•        B  :=  C  +  D; 

E  :»  D  +  C; 

END 

EOF 


BRANCH  POINT  RESOLUTION 


CLOCK    TIME    =    18:2:58.02. 
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2.  Simplifying  of  Formal  Identities  . 

A  list  of  the  simplifying  formal  identities 
specified  in  the  CSFG  are  available  in  tabular  form  in  the 
CSF.  During  the  analysis,  the  expressions  are  compared  with 
this  table  and  transformations  are  made  if  a  match  is  found. 
For  example,  the  expression 

A  :=  A  +  0; 

matches  the  form  of  the  additive  identity  and  could, 
therefore,  be  eliminated.  Thus,  no  optimizing  function  or 
meet  operator  need  be  specified  since  these  transformations 
are  all  local. 

3.  Common  Subexpression  Elimination 

As  described  in  Section  X*  C«  t  the  nools  for  common 
subexpression  elimination  consist  of  partitions  of  program 
expressions  into  groups  that  are  known  to  have  identical 
values.  The  meet  operator  is  defined  as  the  intersection  on 
the  equivalent  classes. 

The  combination  of  the  above  three  optimization 
forms  are  incorporated  into  the  current  CSF.  This 
combination  logically  allows  detection  of  a  fourth 
optimization  form,  common  subexpressions  that  are  linked  to 
a  previous  constant  propagation.  The  meet  operator  is  the 
intersection  operator.  The  four  types  are  detected  using  a 
hierarchy  of: 

1)  Propagated  Constants 

2)  Simplifying  Formal  Identities 

3)  Common  Subexpressions  that  link  to  a 
Propagated  Constant 

4)  Common  Subexpressions. 
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C.   CODE  SYNTHESIS  FILTER  (CSF) 

The  following  sections  give  the  programming  structures 
and  methodology  that  are  used  in  the  implementation  of  the 
global  flow  analysis  algorithm.  The  CSF  module  was  written 
in  the  XPL  language  utilizing  the  ZCOM  control  system   [37]. 

1.   Program  Flow 


The  actual  implementation  of  the  global  flow 
analysis  algorithm  is  incorporated  in  this  module.  In  order 
to  analyze  the  input  Polish  sequence,  a  "meta-execution"  is 
performed  on  the  intermediate  language.  This  process 
utilizes  the  "value  number"  concept  of  Cocke  [10]  which 
results  in  a  more  simplified  data  structure  than  would 
normally  be  expected.  The  "value  number"  will  be  referred 
to  as  a  "class  number,"  and  an  equivalence  class  w: 
one  such  class  number  assigned  to  it. 


The  CSF  is  separated  into  three  logical,  parts: 

1)  Initialization 

2)  Control  Flow  Analyzer  (CFA) 

3)  3asic  Block  Analyzer  (BBA)  . 

The  initialization  routines  accept  the  intermediate 
code  file  from  the  C5FE  and  prepare  all  data  structures  for 
processing.  It  is  here  that  a  CONSTANT  TABLE  is  built  as 
produced  by  the  ALGOL-E  compiler. 

The  CFA  controls  the  flow  of  processing  from  block 
to  block,  performs  the  meet  operation  and  terminates  the 
CSF. 
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The  EBA  is  invoked  to  analyze  each  block  (i.e.,  the 
application  of  the  optimization  function) .  It  is  here  that 
meta-execution  takes  place  and  optimization  information  is 
detected.   Figure  5  depicts   the  overall  flow  of  the  CSF. 

The  enclosed  listing  of  CSF  has  been  fully  annotated 
in  order  to  provide  documentation  of  individual  routines.  A 
complete  discussion  of  table  structures  and  the  more 
important  procedures  are  given  in  the  following  sections. 

2«   l^EiSlsntation  Methodology, 

The  implementation  of  the  global  flow  analysis 
algorithm  was  done  using  structured  programming  concepts. 
All  functions  are  isolated  within  procedures  and  each 
procedure  is  as  autonomous  as  possible.  A  complete 
description  of  the  program  organization  and  output  can  be 
accomplished  by  examining  four  areas: 

1)  Control  Structures 

2)  Meta-Execution 

3)  Meet  Operation 

4)  Output  Formats. 

a.   Control  Structures 

The  program  branching  structure  is  followed  by  a 
procedure  called  "CONTROL-FLOW, "  the  Control  Flow  Analyzer 
(CFA) .  The  CFA  repeatively  cycles  through  the  following 
steps: 

1)  select  a  blooc  to  be  processed 
from  the  top  of  the  list  L. 

2)  call  the  Basic  Block  Analyzer  (BBA) 
to  process  the  block. 
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3)  use  the  P   produced  by  the 

o 

the  BBA  to  perform  the  meet  operation 
on  all  successor  blocks. 

4)  order  the  blocks  to  be  processed  list 
according  to  the  block,  selection  rule 
in  effect. 

These  steps  are  continued  until  no  blocks  are  available  to 
be  processed  in  step  1.  The  CFA  then  calls  a  procedure, 
"OUTPUT_OPTIMIZATION,"  which  writes  an  annotated 
intermediate  language  code  file  along  with  a  synopsis  of  the 
optimization  process. 

The   "blocks   to  be  processed  list,"  L,  consists 
of  two  elements  as  follows: 

1)   CONTROL  is  a  thirty-two  (32)    bit  entry  of: 


BITS 
0-15 

16 

17-30 

31 


CONTENT 
first  word  address  of  the  block 
in  the  code  file, 

set  if  initial  pool  has  been 
built  for  this  block, 

immediate  predecessor  block 
number, 

set  if  block  is  not  to  be 

processed  (i.e.,  P   <  P   in 

c     i 

step  Q5  of  the  flow  algorithm). 
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.  2)   SAV-TOG  is  an  eight  (8)  bit  entry  of: 

BIT 

0  set  if  control  flow  trace  of 
optimization  process  desired, 

1  set  if  complete  table  trace  of 
optimization  process  desired, 

2  set  if  detected  constant  operands 
are  to  be  propagated, 

3  set  if  false  branches  are  to  be 
removed  from  detected  constant 
decision  branches, 

4  set  if  output  from  CSF  is  desired  in 
punched  cards, 

5-7     are  not  currently  used. 

The  function  of  the  two  tables  is  to  save  blocks 

to  be  processed  along  with  optimizer  toggles  for  each  block. 

If  it  is  found  that  a  block  need  not  be  processed  (i.e.,  the 

test   of  P   <  P   is  true  after  performing  the  meet  operation 
c    i 

in  step  Q5  of  the  algorithm)  a  single  bit  can  be  set   rather 

than   rearranging   the   table   sequence.    If   an   immediate 

successor  block  has  never  been  encountered   before,   its   P 

c 

becomes      the      P      from    the    immediate    predecessor    block    in    the 

o 

procedure    "BUILD__INPUT_POOL. " 


Blocks   are   entered   on   the   top  of  the  "to  be 

processed  list,"  L  as  they  are  encountered  by  the  BBA  (i.e., 

when   a   branch   operator  is  encountered) .   After  performing 

the  meet  operation  on  all  successor  blocks,   the  CFA   calls 
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the  procedure  "ORDER_BLOCK_LIST/ "  which  arranges  the  "to  be 
processed  list,"  L,  in  a  top  down  sequence  for  actual 
processing  according  to  the  specified  block  selection 
method.  Presently,  any  one  of  four  (4)  block  selection 
methods  can  be  specified.   The  are: 

1.  Last-in-First-out  (LIFO) . 

2.  First-in-First-out  (FIFO) . 

3.  Select  the  P   with  the  minimum  number 

i 

of  equivalence  classes  called  the 
min  pool  selection  method,  as 
discussed  by  Lukasczyk  [34]. 

4.  Select  the  P   with  the  maximum  number 

i 

of  equivalence  classes  called  the 
max  pool  selection  method.   This 
was  included  for  comparison 
against  the  min  pool  selection 
method. 

In  order  to  control  block  processing,  a  "block 
header"  for  each  block  is  generated  when  it  is  first 
encountered.  This  header  is  updated  each  time  the  block  is 
traversed;  consequently,  it  provides  a  summary  for  the  block 
at  any  point  during  the  optimization  process.  These  block 
headers  are  saved  sequentially  above  the  intermediate 
language  code  file.   The  block  header  format  is: 

WORD  CONTENT 

0  Block  #  (15  bits)  |  previously 
processed  indicator  (1  bit)  j 
STATES  TABLE  index  (16  bits) 

1  First  word  address  in  code 
file  (16  bits)  |  last  word 
address  in  code  file  (16  bits) 


52 


2  Number  of  transversals 

3  Number  of  references 

4  Number  of  predecessor  blocks 
referencing  this  block 
(variable  number  of 
entries) . 

Prior  to  passing  a  block*s  first  word  address   to   the   BBA, 

the   CFA   places  its  P   on  the  ADDRESS  and  EXPRESSION  TABLES 

i 

using  information  from  the  STATES  TABLE.   These   tables   are 

among  the  primary  mechanisms  for  the  meta- execution 
performed  by  the  BEA  and  will  be  discussed  in  the  next 
section.  In  this  manner,  the  meta-execution  tables  are 
preset  for  any  block  thus  allowing  random  processing  of 
blocks. 

The  meet   operation   is   performed   by   the  CFA 

through   a   call   to   the   procedure   PERFORM_MEEI_OP   which 

applies  the  meet  operator  to  a   single   immediate   successor 

block  of  the  block  just  processed.   A  true  response  from  the 

PERFORM_WEET_OP   procedure   indicates   that   the    immediate 

successor   block   is  to  be  processed  (i.e.,  the  test  of  P   < 

c 

P   in  step  Q5  of  Algorithm  Q) .   As  was  mentioned  previously, 
i 

a   single   bit  in  the  CONTROL  TABLE  entry  for  each  successor 

block  is  then  set  or  cleared  to  indicate  future   processing. 

The   meet   operation   will   be   discussed   in  more  detail  in 

Section  II.C.2.C. 

b.   Meta-Execution 

The  meta-execution  is  performed  within  the 
procedure  BASIC_BLOCK  which  is  the  control  routine  for  the 
BBA.   The  Polish  sequence  is  symbolically  evaluated  using  an 
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EXECUTION  STACK.  This  process  uses  "class  numbers"  instead 
of  the  actual  value  of  a  variable  since  the  actual  value  is 
not  generally  known  at  compile  time.  The  EXECUTION  STACK 
has  four  (4)  elements: 

1)  EXVAL#  -  a  sixteen  bit  entry  which  holds 
the  class  number. 

2)  EXTYPE  -  an  eight  bit  entry  which  holds 
the  type  of  an  operand  (e.g.,  BOOL  or 
INT)  . 

3)  EXCON  -  a  one  bit  indicator  to 
identify  an  entry  as  a  constant. 

4)  EXADD  -  a  sixteen  bit  entry  that  points 
to  the  ADDRESS  TABLE  entry  that 
corresponds  to  this  EXECUTION  STACK  entry. 

Three  other  table  structures  are  used  in 
conjunction  with  the  EXECUTION  STACK.  They  are  the  ADDRESS 
TABLE,  the  EXPRESSION  TABLE  and  the  CONSTANT  TABLE. 

The  ADDRESS  TABLE  defines  all  variables.  There 
are  five   (5)  entries  per  variable: 

1)  ADDRESS  -  a  thirty-two  bit  entry,  that  holds 
an  internal  code  that  identifies  each 
variable.   This  code  is  generated  in 
seguence  by  the  ALGOL-E  compiler  beginning 
with  the  first  declared.   This  field 

will  be  zero  if  an  ADDRESS 

TABLE  entry  defines  an  expression. 

2)  ADDTYPE  -  an  eight  bit  entry  that  defines 
the  type  of  the  variable. 
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3)  ADDVAL  -  a  sixteen  bit  entry  that  holds  the 
current  class  number  assigned  to  the 
variable. 

4)  ADDCON  -  a  sixteen  bit  entry  that  addresses 
the  proper  entry  in  the  CONSTANT  TABLE, 

if  the  current  value  of  a  variable  is  a 
constant. 

5)  ADDNAIi  -  a  sixteen  bit  index  to  the 
EXPRESSION  TABLE  if  the  entry  defines 

an  expression.   In  this  case,  the  ADDRESS 
entry  would  be  equal  to  zero. 

The  CONSTANT  TABLE  structure  consists  of  four 
(4)  elements  that  define  each  constant.   The  elements  are: 

1)  CONSYM  -  a  character  string  representation 
of  the  constant, 

2)  CONTYPE  -  an  eight  bit  entry  that  defines 
the  type  for  the  constant. 

3)  CONVAL  a  sixteen  bit  entry  that  holds 

the  class  number  assigned  to  the  constant. 

4)  CONINT  -  a  thirty-two  bit  binary 
representation  of  the  actual  constant 
value. 

The  EXPRESSION  TABLE  (VTAB)  is  structured  as  a 
linear  table  with  sequential  expression  entries  made  as  they 
occur.  A  hash  coded  retrieval  method  is  used  to  access  the 
table  resulting  in  rapid  search  for  redundant  expressions. 
The  lower  portion  of  VTAB  up  to  HASHBASE  is  saved  for  the 
primary  hash  link.   Access  to  this  link  is  formed  by 


55 


INDICATOR  +  OPERATOR  +  OPERAND   class  number  ♦ 

0 

OPERAND   class  number  +  ...+  OPERAND   class  number. 
1  n 

The  link  address  obtained  will  either  hold  a  zero  indicating 

no  expression  with  this  hashcode  has  been  encountered,  or  an 

index   to   the   most   recent   expression  that  hashed  to  this 

address.   The  INDICATOR  in   the   hash   formula   is   used   to 

determine   where   the   class  numbers  for  the  operands  can  be 

found.   Specifically,  the  expression  is   located   either   in 

the    EXECUTION   STACK   or   in   the   EXPRESSION   TABLE.    An 

EXPRESSION  TABLE  entry  is  structured  as: 


WORD 


CONTENT 


Bits  16-31  hold  the  original 
Hash  Link  address.   Bits  0-15 
hold  the  operator  code. 

Hash  code  collision  field 
which  is  zero  (0)  if  no  further 
expression  links  are  present. 


Class  number  for  operand  . 

0 


2+1 


2  +  I  +  1 


Class  number  for  operand 

1 

(variable   number    of    operands 

allowed) . 

Class  number  for  resultant 

operand  . 
0 

Class  number  for  resultant 

operand   (variable  number  of 
1 

resultant  operands  allowed) , 


2  +  I  +  J  +  1 


Master  chain  pointer  links  all 
entries.  Used  for  bookkeeping. 
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Additionally,  the  upper  portions  of  the   ADDRESS 

TABLE   and   EXPRESSION   TABLE   are  used  to  hold  the  P   for  a 

c 

block,  as  will  be  further  explained  in  Section  II.C.2.C. 


The  meta-execution  operates  by  loading  Polish 
operands  onto  the  EXECUTION  STACK  and  setting  indexes  to 
their  respective  ADDRESS  TABLE  entries.  When  an  operator  is 
detected  in  the  Polish  sequence,  the  EXPRESSION  TABLE  is 
searched  for  an  identical  entry  using  the  hashcode  chain. 
In  this  manner,  common  subexpressions  are  easily  detected. 

Because  of  the  link  from  the  ADDRESS  TABLE  to 
the  CONSTANT  TABLE,  the  detection  of  constant  propagation  is 
a  simple  matter  of  bit  checking  on  the  operands  of  an 
expression.  If  all  operands  are  in  fact  constants.  a 
propagated  constant  has  been  detected. 

The  application  of  simplifying  formal  identities 
is  done  by  a  comparison  against  a  table  of  simplification 
rules  generated  by  CSFG  for  each  expression.  Both 
propagated  constants  and  simplif icarion  detection  are 
accomplished  by  a  call  to  the  procedure  SIMPLIFY  by  the  BBA. 
The  generated  constant  propagation  case  statement  shown  in 
TABLE  III,  is  located  in  the  procedure  PROPAGATE  which  is 
invoked  when  a  propagated  constant  is  detected  by  the 
procedure  SIMPLIFY.  PROPAGATE  then  computes  the  propagated 
constant  as  specified  by  the  operator.  The  constant  value 
is  then  entered  into'  the  CONSTANT  TABLE  if  it  does  not 
already  exist. 
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As  possible  code  transformations  are  detected, 
they  are  also  flagged  in  the  table  OPTIM_TYPE  which  has  a 
parallel  entry  for  each  code  word.  The  entries  in  the 
OPTIM_TYPE  TABLE  are  coded  as: 

CODE  MEANING 

0  no  transformation  present 

1  simplification  possible 

2  propagated  constant 

3  common  subexpression 

H  common  subexpression  that  links 

to  a  propagated  constant. 

Additionally,  an  optimization  entry  is  saved  for  future 
reference  at  the  extreme  top  of  the  EXPRESSION  TABLE  (VTA3) . 
The  address  of  this  optimization  entry  is  entered  into  the 
ADDR  field  of  the  intermediate  code  for  use  by  later  passes. 
The  form  of  this  entry  is: 

VTAB  LOCATION  CONTENTS 

VTOPR  operand   class  number 

0 

(variable  number  of 

operands) , 

• 

VTOPR  -  X  code  location  at  which  an 

identical  expression  can  be 
found.   Zero  (0)  if  not 
applicable, 

VTOPR  -  X  -  1  resultant  operand  class 

number, 

where  VTOPR  is  the  current  pointer  to  the  last  entry  in  the 
top  of  VTAB.   Upon   subsequent   passes   for   a   block,   this 
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optimization  expression  entry  will  be  updated  as  necessary. 
If  a  previous  optimization  does  not  recur  on  a  subsequent 
pass,  the  indicator  in  OPIIM_rYPE  is  reset  to  zero  (0),  but 
the  optimization  expression  entry  remains  linked. 

During  the  BBA,  the  tables  generated  by  the  CSFG 
come  into  use.  The  linkage  between  tables  is  in  some  cases 
rather  complex  and  needs  clarification  for  a  complete 
understanding  of  the  CSF. 

In  order  to  identify  the  operator  codes  in  the 
code  file,  two  (2)  tables  are  used: 

1)  OPRANGF 

2)  OPCODES. 

OPRANGE  is  a  table  that  is  indexed  by  the  OPCODE 
field  in  the  code  file.  Each  entry  addresses  the  first 
character  for  a  particular  OPCODE  in  the  character  string 
called  OP_CODES.   Figure  6  illustrates  this  relationship. 

To  assist  in  the  processing  of  expressions,  five 
(5)  tables  are  used: 

1)  OP_DEGL 

2)  OP_DEGR 

3)  0P_INDEX 

4)  OP_INFO 

5)  0P_STR. 

0P_DEGL  is  indexed  by  OPCODE  and  contains  the 
number  of  operands  necessary  for  an  operator. 

OP_DEGR  is  indexed  by  OPCODE  and  contains  the 
number  of  result  operands  that  the  operator  will  generate. 
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OP_INDEX  is  indexed  by  OPCODE  and  points  to  the 
first  entry  in  OP_INFO  for  an  operand.  OP_INFO  holds  the 
type  code  for  each  operand  and  resultant  operand  up  to  entry 
ninety-five  (95)  in  the  ALGOL-E  implementation.  As  noted  in 
Figure  7r  more  than  one  configuration  of  operand  and 
resultant  operand  types  can  exist  for  a  particular  operator. 
The  OP_DEGL  and  OP_DEGR  counts  provide  a  means  of  breaking  a 
multiple  configuration  into  its  exclusive  parts. 

For  the  ALGOL-E  implementation,  the  OP_INFO 
TABLE  above  entry  ninety-five  (95)  is  used  in  conjunction 
with  the  SIMP_INDEX  TABLE  and  the  0?_STR  TABLE  to  identify 
simplification  rules.  SIHP_INDEX  is  indexed  by  the  operator 
code  and  indexes  the  first  simplification  rule  in  0P_INF0 
for  that  operator.  Table  0P_STR  holds  the  string 
representation  of  the  identity  operands  "1"  and  "0"  for 
ALGOL-E.  Each  entry  of  0P_INF0  is  eight  (6)  bits  as 
follows: 


BIT 
0 


CONTENT 
1  =  identity  operand 
0  =  variable  identifier 


1-7 


if  identity  operand  this  field 

points  to  0P_STR  for 

proper  identity.   If  variable 

operand  this  field  holds 

the  type  code. 
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Each  entry  of  OP_INFO  is  a  description  of  an 
operand  or  a  resultant  operand.  Figure  8  depicts  the 
Simplification  Link  Structure  within  OP_INFO.  Note  that 
more  than  one  rule  can  exist  for  an  operator  in  DP_INFO.  A 
link  from  rule  to  rule  is  present,  and  OP_DEGR  and  0P_DE3L 
are  used  to  process  each  rule.  The  last  link  field  contains 
zero  (0)  which  serves  as  the  rule  terminator  for  an 
operator.  When  a  rule  is  matched  against  an  existing 
expression,  a  simplification  has  been  found. 

The  BBA  sequentially  processes  the  Polish 
elements  beginning  with  the  block's  first  word  address 
provided  by  the  CFA.  Since  the  BBA  processes  only  basic 
blocks,  it  returns  control  to  the  CFA  upon  encountering  a 
branch  operator  or  an  ENT  type  variable.  Any  XIT  operands 
encountered  by  the  3BA  result  in  entries  on  the  CONTROL 
STACK  with  the  ADDR  field  specifying  the  first  word  address 
of  the  immediate  successor  block.  An  ENT  variable  also 
results  in  a  CONTROL  STACK  entry  beginning  at  the  next 
sequential  instruction  in  the  code  file. 

Because  of  constant  propagation,  the  BBA  is  able 
to  alter  the  actual  block  flow  of  the  program  if  a 
propagated  constant  is  detected  while  processing  a 
conditional  branch  operator.   For  example,  given  the  program 

A  :=  5; 

B  :=  10; 

IF  A  >  B  THEN 

C  :=  6; 

D  :  =  7; 
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the  test  of  A  >  B  would  obviously  always  be  false.  When 
this  condition  is  detected,  only  one  of  the  XIT  variables 
generated  by  the  compiler  would  be  placed  on  the  CONTROL 
STACK.  This  can  result  in  entire  sections  of  a  program 
never  being  traversed.  The  flow  of  the  above  example  would 
effectively  become 

A  :=  5; 
B  :=  10; 
D  :=  7; 

This  facility  can  be  controlled  by  a  toggle  called 
BRAHCHTOG.  If  it  is  false,  both  exits  will  always  be 
processed.   Currently  it  is  set  to  a  true  condition. 

c.   Meet  Operation 

The  meet  operation  is  accomplished   from   within 

procedure   PERFORM_riEET_OP  which  is  called  by  the  CFA.   Each 

call  results  in  a  single   immediate   successor   block   being 

processed.    A   true   or  false  response  indicates  to  the  CFA 

whether  the  immediate  successor  block,  is  to   be   marked   for 

future    processing.     That    is,    if    P    <    P  ,   then 

c        i 

PERFORM  MEET  OP  returns  false. 


The  P   for  a  block  is  saved  via  the  STATES  TABLE 
c 

in  the  upper  portions  of  the  ADDRESS  and  EXPRESSION   TABLES. 

The  STATES  TABLE  is  a  linear  table  which  is  structured  as: 
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WORD  CONTENT 

0  0 

always  zero 

1  0 

2  number  of  states  for  block  #1 
(index  to  ADDRESS  table 

for  each  state) 

* 

2  +  1+1  0 

2  +  1  +  2  0 

2+1+3  number   of    states    for    block    #2 

etc  etc 

where   a   "state"   is   a   single   variable    or    expression 

description.    The  block  header  for  each  block  points  to  its 

respective  STATES  TABLE  entry.   The  ADDRESS  TA3LE  entry   for 

the    P    is   nearly   identical   to   the   format   previously 
c 

discussed;  however,  it  is  saved  linearly  from  the   top   down 

instead  of  from  the  bottom  up.  The  EXPRESSION  TABLE  entry 
is  also  slightly  different.  An  ADDRESS  TABLE  entry 
corresponding  to  an  expression  entry  will  still  have  zero 
(C)  in  the  ADDRESS  entry.  However,  the  ADDNAM  pointer  will 
address  the  top  of  VTAB  instead  of  the  bottom.  In  VTAB, 
only  the  operands  for  the  expression  will  be  found.  Note, 
finally,  that  the  complete  state  of  any  ona  block  is 
distinct  from  the  other  blocks;  that  is,  no  ADDRESS  TABLE 
state  entry  is  shared  by  blocks. 

An  important  point  in  understanding  the 
structure  of  the  EXPRESSION  TABLE  (VTAB)  is  that  it  holds 
three  separate  entries.   They  are: 
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1)  current  expressions  for  the  block  being 
processed, 

2)  information  on  detected  transformations, 
and 

3)  operands  for  the  saved  current  optimized 
pools  of  all  blocks. 

Only  the  current  expression  entries  are  hash  coded,  and 
reside  in  the  lower  part  of  VTA3.  The  other  two  entry  types 
are  found  in  the  upper  regions  of  VTAB. 

Prior   to   calling   PERFORM_.MEET_.OP,    the    CFA 

structures   the   lower   ADDRESS   TABLE  so  that  it  completely 

reflects  the  P    of   the   last   processed   block.    This   is 
o 

accomplished   by  moving  any  EXECUTION  STACK  entries  onto  the 

ADDRESS   TABLE.  The   ADDRESS   field   will   be    a    number 

representing   the  relative   position   of   the   entry  on  the 

EXECUTION  STACK.  The  uppermost  bit  (bit  15)  of  the   ADDRESS 

field   is   set  to  identify  the  entry  as  originating  from  the 

EXECUTION  STACK.  Therefore,  the  meet   operation   need   only 

look   at   the   lower   ADDRESS  TABLE  for  the  P   and  the  upper 

o 

ADDRESS  TABLE  specified  by  the  STATES  TABLE  for   the   P    of 

c 

the  immediate  successor  block. 


The  meet  operation  is  accomplished  in  three   (3) 
steps: 

1)  Initialize 

2)  Process  all  simple  variables 

3)  Process  all  expressions. 

Two  (2)  tables,  the  CLASS  OCCURRENCE  LIST  and  the  CLASS 
REFINEMENT  TABLE,  are  the  primary  structures  used  to 
accomplish   the  meet  operation  as  developed  by  Kildall  [28  1. 
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The  initialization  stage  builds  the   CLASS   OCCURRENCE   LIST 

based   on  the  P   of  the  block  to  be  processed.   This  list  is 

c 

simply  a  count  of  the  occurrence  of  each  class   number   that 
is  assigned  to  a  simple  variable  or  an  expression. 

After  the  CLASS  OCCURRENCE  LIST   is   built,   all 

simple   variables  are  processed  from  the  P   of  the  immediate 

c 

successor  block.   The  P   is  searched  for  each  identifier   in 

o 

the   P  .    If   the  identifier  exists,  the  class  numbers  from 
c 

the  two  (2)  pools  are   entered   into   the   CLASS   REFINEMENT 

LIST.   If  the  class  numbers  are  not  the  same,  a  new  "refined 

class  number"  is  assigned  to  the  identifier.   The  identifier 

is   then  placed  in  the  P   with  the  refined  class  number.   As 

i 

each   identifier   is   processed   from   the   P  ,   its    class 

c 

occurrence  is  decremented  in  the  CLASS  OCCURRENCE  LIST. 


After  all  simple  variables  have  been   processed, 

each    expression    in    the   P    is   considered.    When   an 

c 

unprocessed  expression  is  found,  a  check  is  made   to   ensure 

that  the  the  CLASS  OCCURRENCE  LIST  for  all  its  operand  class 
numbers  are  zero  (0) .  If  they  are  not,  the  expression  is 
not  processed  until  they  are,  with  a  single  exception. 
Simplification  rules  such  as 

A  +  0  =  A 

cause  both  (A  +  0)  and  A  to  appear  in  the  same  class.  When 
this  occurs,  (A  +  0)  is  treated  the  same  as  A. 

If  an  expression  can  be  processed,  its  resultant 
class   number   count   is  decremented  in  the  CLASS  OCCURRENCE 
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LIST.   A  list  of  candidate  expressions  to  consider  in  the  ? 

o 

is   forrae'd   by   examining   the  CLASS  REFINEMENT  LIST.   If  an 

expression  in  the  P   has  operands  OP   and  OP  ,  a   search   of 

c  12 

the   CLASS   REFINEMENT   LIST   will  be  made  to  identify  class 

numbers  in  the  P   that  are  equivalent  to  OP   and   OP  .    For 

o  1         2 

example,    if    an  output    pool    is 


P      =    {A    J    B    |     A  +    B,    B   +    A} 
o 

(1)     (2)  (3) 

and  a  current  pool  is 

P   =  {A  |  B  |  A  +  B,  B  +  A} 
c 

(5)  (6)        (4) 

where   each  class  is  labeled  with  a  class  number.   The  CLASS 
OCCURRENCE  LIST  would  be: 

NUMBER  OF  OCCURRENCES  CLASS  NUMBER 

1  4 

1  5 

1  6 

After  processing  simple  variables,  the  CLASS  OCCURRENCE  LIST 
would  be: 

NUMBER  OF  OCCURRENCES         CLASS  NUMBER 
1  4 

and  the  CLASS  REFINEMENT  TABLE  would  be 

E   CLASS  NUMBER    P   CLASS  NUMBER    REFINED  CLASS  NUMBER 
o  c 

1  5  7 

2  6  8 


69 


Since   identifiers   A   and  B  were  both  found,  the  P   to  this 

i 

point  would  be 


P.  =  £  A  |  B  }. 

1 

(?)  (8) 

Upon   searching   the   CLASS   OCCURRENCE  LIST  for  the  operand 

class  numbers  of  the  expression  (A  +  B)  in  the  P  ,  none  will 

c 

be   found;   therefore,  the  expression  can  be  processed.   The 

resultant   class   number,   4,   is   deleted   from   the   CLASS 

OCCURRENCE  LIST.   Using  the  CLASS  REFINEMENT  TABLE  a  list  of 

candidate   expressions   to   search   for   in    the     P     is 

o 

constructed.    This  list  is  developed  by  taking  the  operands 

of   the   expression   in   the   P    and   searching   the   CLASS 

c 

REFINEMENT    TABLE   for   matches  ■  in  the  P  .   For  example,  a 

o 

class    number   of    1    in    the    P      is    equivalent    to    a  class      number 

o 

of   5   in   the   P    and   a   class   number   of  2  in  the  P   is 

c  o 

equivalent  to  a  class  number  of  6  in  the  P  .   Therefore,  the 

c 

expressions  to  be  searched  for  would  be 

R       EXPRESSION  LIST 
o 

(5)  +  (6) 

(6)  +  (5) 

since   the   operator   "+"   is   commutative.    The  P   is  then 

o 

searched  for  an  occurrence  of  these  expressions.   If   found, 

the  resulting  class  numbers  of  the  P   and  P   expressions  aie 

c      o 

entered  in  the  CLASS  REFINEMENT  TABLE  in  the  same  manner   as 

foi.  an  identifier. 
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P       CLASS  NUNPE5.         E       CI-ASS  NUMBER          REFINED    CLASS     NUHiJER 

o  "                     c 

1  5  7 

2  6  8 

3  U  9 


An  expression  entry  can  then  be  made  in   the   P 

i 

using   the   refined   class   numbers   for   both   operands  and 

resultant  operands.   The  P   would  then  be 

i 

P   ={AJB|A+B,  B+A}. 
i 

(7)  (8)        (9) 

After    all   expressions   have   been   processed,   the   CLASS 

OCCURRENCE   LIST   will   be   empty.    If   an   expression    or 

identifier   in   the   P    is  not  found  in  the  P  ,  the  current 

c  o 

state  of  P   has  been  altered  and  PERFORM_MEET_OP  will  return 
c 

true,  indicating  the  block  must  be  traversed  again. 


A  problem  with  the  handling  of  constants   occurs 

if   an   identifier  or  expression  is  a  constant  in  the  P  and 

c 

is  present  in  the  P   but  its  value  is  not  a  constant  in   the 

o 

P  .   The  state  has  chanqed  in  this  situation,  thus  reguirinq 
o 

a  true  response  from  PERFORM_HEET_OP . 


As   each  identifier  and  expression  is  processed, 

the  P   area  at  the  top  cf   the   ADDRESS   TABLE  is   updated. 
c 

This   is   the  P   that  is  being  formed,  which  is  to  be  loaded 

i 

onto  the  lower  ADDRESS  TABLE  by  the  CFA  before  calling   the 

BBA  to  process  the  block.   At  the  completion  of  the  CSF,  the 
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P   held  within  the  upper  ADDRESS  TABLE  is  the  P   (i.e.,  MOP) 
c  F 

for  each  block. 


d.   Output  Formats 

A  number  of  table  formats  have  already  been 
discussed;  however,  further  output  format  definitions  for 
the  equivalence  classes  and  the  final  optimization 
information  is  necessary. 

The  state  elements  have  one  of  three  formats: 

1)  A  (X,  Y,  Z) 

2)  E  (X,  Y,  Z) 

3)  C  (X,  Y,  Z)  . 

Form  A (X,  Y,    Z)  refers  to  a  simple  identifier  and 
X  is  the  identifier  code  number, 

Y  is  the  class  number  of  the  constant 

if  identifier  X  is  equal  to  a  constant, 
and 

Z  is  the  class  number  assigned  the  identifier 
X  in  the  ADDRESS  TABLE. 

Form  E(X,  Y,  Z)  refers  to  an  EXECUTION  STACK  entry  and 

X  is  the  relative  location  of  the  entry  from 
the  top  of  the  EXECUTION  STACK.   Y  and 
Z  are  the  same  as  for  a  simple  identifier. 

Form  C(X,  Y,  Z)  refers  to  an  expression  entry  and 

X  represents  the  class  numbers  of  all  operands 
separated  by  colons, 

Y  is  the  class  number  of  the  constant 
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if  the  resultant  class  number  is 
eyual  to  a  constant,  and 

Z  is  the  class  number  of  the  resultant  operand. 

Another  format  for  expressions  is  used  when  the 
expression  stack  is  output  at  the  end  of  processing  each 
block.   Its  form  is: 

C  (X,  Y,  Z) 


where 


form 


X  is  the  string  representation  of  the 
expression  operator, 

Y  is  the  same  as  for  X  in  state  expressions,  and 

Z  is  the  same  as  for  Z  in  state  expressions. 

The  final  optimization  results  are  output  in  the 


Optimization  at  X 

(a  r  a  ,  ...  ,  a   |  b,  c) 

1    2         k 

where 

X  is  the  location  in  the  intermediate 
code  file  where  the  optimization 
was  detected, 

a  .  a  ,  . . .  ,  a    are  the  class 
1    2        k 

numbers  of  all  operands, 

b  is  the  address  of  a  previous  expression 
that  is  identical,  if  one  exists,  and 

c  is  the  resultant  class  number  of  the  expression. 

In   all   of   the   above   formats,  an  unknown  element  will  be 
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printed  as  "*." 

The  block  headers  are  output  at  the  end  of  the 
optimization  process.   The  format  for  each  block  is: 

LINE  CONTENT 

1  block  number 

2  first  and  last  word  addresses 
within  the  intermediate  code 
file  for  the  block 

3  count  for  the  number  of 
times  the  block  was  traversed 

4  block  number  of  an  immediate 
predecessor  block 

4  +  I        (variable  number  of  predecessor 
blocks  possible) . 

The  intermediate  code  file  is  also  printed,  and  the  C  field 
indicates  the  actual  location  of  any  optimization 
information.  The  OPTIM_IiPE  TABLE  is  output  concurrent  with 
the  code  file  to  indicate  the  optimization  type. 

Several  examples  of  CSF  output  are  enclosed  in 
which  different  block  selection  methods  were  used  as 
indicated  on  the  output.  TEST  program  number  six  (6)  has 
all  four  block  selection  methods  listed  so  that  a  comparison 
of  the  CSF  flow  using  different  block  selection  methods  can 
be  seen. 

TABLE  V  is  the  CSF  output  from  the  source 
program  shown  in  TABLE  IV  with  STABLE  selected.  The 
different  tables  are  identified  as  they  occur. 
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TABLE  V 
TABLE  TRACE  OUTPUT  FROM  CSF 

•♦♦CODE    SYNTHESIS    FILTER*** 

BLOCK   SELECTION    METHOD   HILL    BE    STEEPEST    DESCENT    (MINIMUM    CURRENT    POOL) 

***C    OMPLETE         TABLE         DUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


***T    ABLE 


DUM    P***    AT    LOCATION    =    0 


CONSTANTS    <l>      <2>      <3>      <4>      < 5>      <6>      <7>      <8>      <9>      <10>    <ll>    <12>    <13>    <U> 


CONSYM 

2 

3 

CONTYPE 

INT 

INT 

CONVAL 

46 

4/ 

CONINT 

2 

i 

CONSTANT  TABLE  FROM  CSFE 


ADDR    TABL    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>   <13>    <14> 

(EMPTY)  -^ _       SIMPLE  VARIABLES   STACK   IS   EMPTY 


VALUE    STACK    (TOP    AT    127) 


EXPRESSION  STACK   IS   EMPTY 


CONT    STK 

BLOCK* 
ENTRY 


<1> 

0 
0 


<2> 


<3>       <4>      <5>      <6>       <7>       <8> 


EXEC    STAC    <1> 
(EMPTY)  -*- 


<2>      <3>       <4>      <5>      <6>       <7>       <8> 


<9>      <10>    <11>    <12>   <13>    <l'*> 

SET  TO  PROCESS   BLOCK  #1 
STARTING  AT  LOCATION  0 

<14> 


****       FORMATTED    INTERMFD 
LOC    OFF  OP    CODE  CN 

SET 
<***** ********* *********** 

0 

I 

3 
4 

! 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

12 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
-  29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

**********  *  ****  *  *  *  *****  *  *  * 


0 

ENT 

0 

TOGGLE 

0 

TOGGLE 

0 

LCC 

0 

INT 

0 

STO 

0 

DEL 

0 

LOC 

0 

INT 

0 

STO 

0 

DEL 

0 

LOC 

0 

INT 

c 

STD 

0 

LOC 

0 

INT 

0 

STD 

0 

ENT 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOO 

0 

GTR 

0 

XIT 

0 

XIT 

0 

BSC 

0 

ENT 

0 

LOC 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOO 

0 

ADD 

0 

STO 

0 

DEL 

0 

XIT 

0 

BRS 

0 

ENT 

0 

LOC 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOO 

0 

ADD 

0 

STO 

0 

DEL 

tXtUUTlUN  blALK.  lb  tnrii 

IATE  CODE  DUMP   **** 

S  ADR     RAW  CODE 

OPTIMIZATION 

/ETC 

TYPE 

******************************************** 

46 

OO03802E 

257 

OOOB0101 

"^ INITIAL  ENT  IS  FORCED  BY 

25R 

00033102 

INITIALIZATION  ROUTINES 

3 

00023303 

1 

00053001 

., 

0 

00280000 

0 

00243300 

4 

00020004 

2 

00050302 

0 

00280000 

0 

002AOOOO 

I 

00023001 

0 

00050000 

0 

00293000 

2 

00020002 

0 

00053000 

0 

00290000 

1 

00033301 

1 

00023001 

0 

00270000 

2 

00023302 

0 

00270000 

0 

00213000 

37 

00043025 

26 

0004331  A 

0 

002F0300 

1 

00033001 

2 

00023332 

3 

00023333 

, 

0 

00270000 

4 

00020004 

0 

00270000 

0 

00103300 

0 

00280000 

0 

002A3300 

17 

0004301 1 

0 

002F3000 

1 

00033301 

5 

00020005 

4 

00023304 

0 

00273000 

3 

00020003 

0 

00273000 

0 

00103300 

0 

00283000 

0 
******* 

002A0300 

*******  *****! 

t************************ 

THE 
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TABLE   V    (CON'T) 


BASIC   BLOCK    *1 

BEGINNING    AT    0,     ENDING    AT    0 
BLOCK    TRAVERSED    0    TIMES 
0    REFERENCES: 


BLOCK  HEADER 


***E    NO        OF         COMPLETE        TABLE         OUM   P*** 

B*2  0         ITOGGLE  I     |258  |    00033102       |-<- TRACE   IN  BBA  AT  LOCATION   2 


♦**T    ABLE 


D    U    M    P***    AT    LOCATION    =    2 


INPUT    POOL    FOR       BLOCK*    1     IS: 
(NULL)        -* 


-BLOCK  SI  HAS  A  NULL   INPUT  POOL 


AODR    TABL    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <H> 
(EMPTY) 

VALUE    STACK    (TOP    AT    127) 


CONT    STK      <1>      <2> 
(EMPTY) 


<3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <ll>    <12>   <13>    <K> 


EXEC    STAC    <1> 
(EMPTY) 


<2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>   <13>    <!<♦> 


B*3 


ILOC 


I     13 


I    00020003       I 


***T    ABLE 
ADDR    TA6L    <l> 


ADDRESS 
ADDTYPE 
ADDVAL 
ADDCON 


3 

NULL 
0 
0 


D    U 
<2> 


M    P***    AT    LOCATION    =    3 
<3>       <4>      <5>      <6>       <7> 


<8>      <9>      <10>    <11>    <12>    <13>    <U> 

LOC  OPERATOR  HAS   RESULTED   IN  A  SIMPLE 
"VARIABLE   ENTRY   BEING  "MADE   IN  ADDRESS   TABLE 


EXEC    STAC    <1> 
EXCON  IN 

EXTYPE  LOC 

EXADD  3 

EXVAL#  10 


<2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>   <1S>    <!<♦> 


■^f— 


EXECUTION   STACK  HOLDS   ONE  ENTRY  OF  TYPE  LOC 
WHICH   IS   REFERENCING  SIMPLE  VARIABLE   3    (C) 


B*4 


I  INT 


I     II 


I    00053001       | 


***T    ABLE 

n  i) 

EXEC    STAC    <l> 

<?> 

EXCON            IN 

Y 

FXTYPE         JLOC 

INT 

EXADO            (3 

1 

EXVAL#           0 

46 

M    P***    AT    LOCATION    =    4 
<3>       <4>      <5>      <6>       <7> 


<8>      <9>      <10>    <11>    <12>    <13>    <H> 

THE   CONSTANT  OF   2   IS  NOW  ON  THE  TOP   OF  THE 
-EXECUTION  STACK.      NOTE  THE   CONSTANT   INDICATOR 
AND  TOE  CLASS  NUMBER. 


B+5 


ISTO 


I     10 


I    00283000       I 


***T    ABLE 
ADDR    TABL    <1> 


ADDRESS 
ADDTYPE 
ADDVAL 
ADDCON 


3 
INT 
46 
1. 


D    U 
<2> 


M    P***    AT    LOCATION    =     5 
<3>       <4>      <5>      <6>       <7> 


EXEC    STAC    <1> 
EXCON  |Y 

EXTYPE  j INT 

EXADD  (1 

EXVAL#  46 


■POINTS   TO   CONSTANT  TABLE 
<2>      <3>      <4>      <5>      <6>      <7> 


<8>      <9>      <10>    <11>    <12>   <13>    <K> 

THE  VARIABLE   3   IS  NOW  SET  TO  POINT  AT  THE 
CONSTANT  2. 


<8>      <9>      <10>    <11>    <12>    <13>    <U> 


B*6 


IDEL 


I     10 


I    002AOOOO       | 


***T    ABLE         D    U 
«fCTSTAC<,>      <2> 


M    P***    AT    LOCATION    =    6 
<3>       <4>      <5>      <6>       <7> 


<8>      <9>      <10>    <ll>    <12>    <13>    <H> 
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TABLE   V    (CON'T) 


8*7 


HOC 


I     14 


I    00020004       I 


*»*T    A    R    L    E 
ADDR    TABL    <1> 
ADORE SS       13 
ADDTYPE  INT 

ADDVAL  46 

ADDCON  I  I 


D    U    M    P***    AT    LOCATION    = 
<2>      <3>       <4>      <5>      <6> 

4 

NULL 
0 
0 


7 
<7> 


<8>      <9>      <10>   <11>    <12>   <13>    <U> 


EXEC    STAC    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <ll>    <12>   <13>    <U> 


EXCON 
EXTYPE 
EXADD 
EXVAL# 


N 
LOC 
4 
0 


8*8 


I  INT 


I  12 


I  00050002   I 


***T    ABLE 
EXEC    STAC    <1> 
EXCON  IN 

EXTYPE  LOC 

EXADO  4 

EXVAL#  10 


0  U  M  P***  AT  LOCATION  =  8 

<2>   <3>   <4>   <5>   <6>   <7> 

Y 

INT 

2 

47 


<8>      <9>      <10>    <11>    <12>    <13>    <H> 


8*9 


ISTO 


I  10 


I  00280000   | 


***T    ABLE 
ADDR    TABL    <1> 


ADDRESS 
ADDTYPE 
ADDVAL 
ADDCON 


5 

INT 

46 

1 


D    U    M    P***    AT    LOCATION    • 

<2>       <3>       <4>      <5>       <6> 

4 

INT 

47 

2 


Q 

<7> 


<8>      <9>      <10>    <11>    <12>    <13>    <14> 


EXEC    STAC    <1> 
EXCON  |Y 

EXTYPE  I  I  NT 

EXADO  2 

EXVAL#  47 


<2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <ll>    <12>    <13>    <!'+> 


8+10 


IDEL 


I     10 


I    002A0000       | 


***T    ABLE         D    U    M    P***    AT    LOCATION    =    10 

EXEC    STAC    <1>       <2>       <3>       <4>      < 5>      <6>       <7>      <8> 

(EMPTY) 


<9>      <10>    <11>    <12>    <13>    <H> 


BUI 


I  LOC 


I     II 


I    00020001       I 


***T    ABLE         0    U    M    P***    AT    LOCATION    =    11 

ADDR    TABL    <1>       <2>       <3>       <4>       <5>       <6>       <7>       <8> 


ADDRESS 
ADDTYPE 
ADDVAL 
ADDCON 


3 
INT 
46 
1 


4  t  1 

INT  J  NULL 

47  10 

2  10 


<9>      <10>    <11>    <12>   <13>    <U> 


EXEC    STAC    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <H> 


EXCON 
EXTYPE 
EXADD 
EXVAL# 


N 
LOC 
1 
0 


8*12 


I  INT 


I     10 


I    00050000       | 


***T    ABLE         0    U    M    P***    AT    LOCATION    =    12 

EXEC    STAC    <1>       <2>       <3>       <4>      <5>      <6>       <7>       <8> 

EXCON 
EXTYPE 
EXADO 
EXVAL# 


N 

N 

LOC 

INT 

1 

0 

0 

48 

<9>      <10>    <11>    <12>    <13>    <U> 


B  +  13 


STD 


I     10 


I    00290000       | 
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TABLE   V    (CON'T) 

***T    ABLE         0    U    M    P***    AT    LOCATION    =    13 

ADDR    TAeL    <1>       <2>       <3>       <4>      <5>      <6>       <7>      <8>      <9>      <10>    <ll>    <12>    <13>    <H> 

ADDRESS 
ADDTYPE 
ADDVAL 
ADDCON 

EXEC    STAC    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>   <11>    <12>  <13>    <14> 
(EMPTY) 


3 

4 

1 

INT 

INT 

INT 

4t> 

47 

48 

1 

2 

0 

B  +  14 


ILOC 


I     12 


I     00023002       | 


3 

4 

1 

2 

INT 

INT 

INT 

NULL 

46 

47 

48 

0 

1 

2 

0 

0 

***T    ABLE  0    U    M    P***    AT    LOCATION    =     14 

ADDR    TABL    <1>       <2>      <3>       <4>      <5>       <6>      <7>      <8>       <9>      <10>    <ll>    <12>    <13>    <14> 

ADDRESS 
ADDTYPE 
ADDVAL 
ADDCON 

EXEC    STAC    <1>      <2>      <3>      <4>      <  5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 

EXCON  IN 

EXTYPE         ILOC 

EXADD  ?  j 

EXVAL*  |0 


6*15 


I  INT 


I     10 


I    00053000      I 


***T    ABLE         0    U    M    P***    AT    LOCATION    =    15 

EXEC    STAC    <1>       <2>       <3>       <4>      <  5>      <6>       <7>      <8>      <9>       <10>    <11>    <12>    <13>    <14> 


EXCON 

N 

N 

EXTYPE 

LOC 

INT 

EXADD 

2 

0 

EXVALtf 

0 

49 

B  +  16 


ISTD 


I     10 


I    00290300       | 


***T    ABLE         D    U    M    P***    AT    LOCATION    =     16 

ADDR    TABL    <1>       <2>      <3>       <4>      <5>      <6>       <7>       <8>      <9>      <10>    <ll>    < 1 2>    <13>    <14> 


ADDRESS 

3 

4 

1 

2 

ADDTYPE 

INT 

INT 

INT 

INT 

ADDVAL 

46 

47 

48 

49 

ADDCCN 

1 

2 

0 

0 

EXEC    STAC    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>   <11>    <12>   <13>    <14> 
(EMPTY) 


B+17 


|ENT 


I     II 


I    00030001       I 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK*    2    IS: 
A(2,*,49)       Ad,*, 48)       A14,47,47)       A(3,46,46)       -«, 


THE  INITIAL   CURRENT 
POOL  FOR  BLOCK  if  2    IS  THE 
OUTPUT  POOL  FROM  BLOCK  81 


***T    ABLE         D    U  M    P***    AT    LOCATION    =     17 

CONT    STK      <1>       <2>  <3>       <4>      <5>      <6>       <7>       <8>      <9>       <10>    <11>    < 1 2>   <13>    <14> 

d  i  r\r  is  m  i   i 

ENTRY  |17    tf BLOCKS  TO  BE  PROCESSED  LIST  HAS  A  SINGLE 

ENTRY   FROM  BLOCK   #1   TO  LOCATION   17. 

EXEC    STAC    <1>      <2>  <3>       <4>      <5>       <6>       <7>      <8>      <9>       <10>    <11>    <12>    <13>    <14> 
(EMPTY) 


^CONTROL    AT    17,     FROM    BLK     1    TO    3LK    2    (PASS    1) 

C  +  17         0         |ENT  |  CI  50  |     00038032       i   «*- 


.CFA  PASSES   CONTROL   FROM  BLOCK   #1   TO 
BLOCK  ii  2. 


***T    ABLE 


D    U    M    P***    AT    LOCATION    =    17 


INPUT    POCL    FOR       BLOCK/?    2    IS: 

A(2,*,49)       Ad,*, 48)       A(4,47,47)       A(3,46,46) 


INPUT  POOL  FOR  BLOCK   82.. STATE   IS   FOUR  SIMPLE 
VARIABLES,    TWO  OF  WHICH  ARE   CONSTANTS. 
ADDR    TABL    <l>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>   <11>    <12>   <13>    <l<t> 

ADDRESS         3  |4  11  2 

ADDTYPE  INT       INT       INT       INT 

ADDVAL  46  47  48  49 

ADDCON  1  2  0  0 
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TABLE   V    (CON'T) 


VALUE    STACK    (TOP    AT    127) 


EXPRESSION   STACK   IS    EMPTY 


CONT    STK      <1>      <2>      <3>      <4> 

IEHPTY) 


<5>      <6>      <7>      <8>      <9>      <10>   <ll>    <12>   <13>   <14> 


EXEC    STAC    <1>      <2>      <3>       <4> 

(EMPTY) 


<5>      <6>       <7>      <8>      <9>      <10>    <ll>    <12>    <13>    <K> 


B*18 


ILOC 


I     II 


I    00020001       I 


***T    A    B    I 

.    E 

EXEC    STAC    <1> 

EXCON 

N 

EXTYPE 

LUC 

EXADD 

1 

EXVAL* 

0 

0    U    M    P***    AT 
<2>       <3>       <4> 


LOCATION    =     18 
<5>      <6>       <7>       <8>       <9>       <10>    <11>    <12>    <13>    <14> 


B  +  19 


ILOD 


I     10 


I    00270000       I 


***T    ABLE 
EXEC    STAC    <1> 
EXCON  IN 

EXTYPE  I  INT 

EXADD  (0 

EXVAL*  148 


0    U    M    P***    AT 
<2>       <3>       <4> 


LOCATION    =    19    ; 
<5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 


8*20 


ILOC 


I     12 


00020302 


***T    ABLE 

0    U 

M    P***    AT 

EXEC    STAC    <1> 

<2> 

<3>       <4> 

EXCON             IN 

IN 

EXTYPE          1  INT 

LOC 

EXADD             IC 

1  ' 

EXVAL#          148 

to 

LOCATION    =    20 
<5>      <6>       <7>      <8>       <9>       <10>    <11>    <12>    <13>    <14> 


B+21 


ILOD 


I     10 


I     00270000       I 


***T    ABLE 
EXEC    STAC    <1> 
EXCON  IN 

EXTYPE  J  INT 

EXADD  [0 

EXVAL#  148 


D    U    M    P***    AT 
<2>       <3>       <4> 

N 

INT 
0 
49 


LOCATION    =     21 
<5>      <6>       <7>       <8>       <9>       <10>    <11>    <12>    <13>    <14> 


B*22 


IGTR 


I     10 


***T    ABLE         D    U    M    P***    AT 
VALUE    STACK    (TOP    AT     133) 
C(GTR    48    49    |50) 


I    00210000 
LOCATION    =    22 


AN  EXPRESSION  ENTRY   IS  MADE. .WHILE   A  GTR   B   DO 
OPERANDS  OF  48  AND   49   AND  A  RESULT  OF   50. 


EXEC    STAC    <1> 
EXCON  IN 

EXTYPE  BOOL 

EXADD  10 

EXVAL#  50 


<2>       <3>      <4>      <5>      <6>      <7>       <8>       <9>       <10>    <11>    <12>    <13>    <14> 


Bf23 


I  XI  T 


I     137 


I    00040025       | 


***T    ABLE 
CONT    STK      <1> 
BLOCK*  12 

ENTRY  37 


0  U  M  P***  AT 
<2>   <3>   <4> 


LOCATION  =  23 
<5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


EXEC  STAC  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


EXCON 

N 

EXTYPE 

BOOL 

EXADD 

0 

EXVALtf 

50 
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B+24 


|XIT 


I     126 


TABLE   V    (CON'T) 


I     0004001A       | 


***T    ABLE         0    U    M    P***    AT    LOCATION    =    24 

CONT    STK      <1>      <2>      <3>      <4>      <  5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 
1 1     ^ 


ENTRY 


BLOCK   02   HAS   GENERATED  TWO   IMMEDIATE  SUCCESSOR  BLOCKS. 


EXEC    STAC    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <ll>    <12>    <13>    <14> 

EXCON  IN 

EXTYPE         (BOOL 
EXADD  0 

EXVAL#  150 


B*25 


IBSC 


I     10 


I    OO2F300O       | 


INITIAL    CURRENT    OPTIMIZED    POOL     TO    BE    USED    FOR       BLOCKS     3     IS 
C(48:49,*,50)       A(2,*,49)       A(l,*,48)       A(4,47,47)       A(3,46,46) 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK*    4 
C(48:49,*,50)       A(2t*t49)       All,*, 48)       A(4,47,47)       A(3,46,46) 


IS:^^ 


CURRENT  POOL  FOR  BOTH   BLOCK 
03  AND   #4  HAS   BEEN   SET  TO  THE 
OUTPUT  POOL   FROM  BLOCK  #2. 


***T    ABLE 

ADDR    TA8L    <1> 

ADDRESS 

AODTYPE 

AOOVAL 

ADDCON 


D    U    M    P***    AT    LOCATION    =     25 
<2>       <3>       <4>       <5>       <6>       <7> 

0 

GTR 
50 
0 


3 

4 

1 

2 

INT 

INT 

INT 

INT 

46 

47 

48 

49 

1 

2 

0 

0 

<8>   <9>   <10>  <11>  <12>  <13>  <14> 


EXEC    STAC    <1> 
(EMPTY) 


<2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 


CONTROL    AT    26,     FROM    BLK    2    TO    BLK    4     (PASS    1)      _ 
C+26         0         IENT  |  C 1 60  |    0003803C       I  **" 


CFA  PASSES   CONTROL  FROM  BLOCK  112   TO 
BLOCK  //4. 


***T    ABLE 


D    U    M    P***    AT    LOCATION    =     26 


INPUT    POOL    FOR      BLOCKS    4    IS: 

C(48:49,*,50)       A(2,*,49)       A(l,*,48)       A(4,47,47) 


ADDRESS 
AODTYPE 
ADDVAL 
ADDCON 


<1> 

<2> 

<3> 

3 

4 

1  1    1 

INT 

INT 

INT 

46 

47 

48 

i 

2 

1  o   1 

<4> 
■> 

INT 

49 

0 


<5>       <6>       <7>       <8> 


INPUT  POOL   FOR  BLOCK  //4   IS 

A  (3,  4  6,  46)-* F0UR  SI^LE  VARIABLES  AND 

ONE  EXPRESSION. 
<9>      <10>    <11>    <12>    <13>    <14> 


VALUF    STACK    (TOP    AT    133) 
C(6TR    48    49    | 50) 


CONT    STK      <1>      <2>      <3>       <4>      <5>      <6>       <7>      <8> 

BLOCKS         12 
ENTRY  37 


<9>      <10>    <11>    <12>    <13>    <14> 


EXEC    STAC    <1>      <2>       <3>      <4>      < 5>       <6>       <7>       <8> 

(EMPTY) 


<9>      <10>    <11>    <12>    <13>    <14> 


8*27 


ILOC 


I     12 


I    00020002       | 


***T    ABLE         D    U    M    P***    AT    LOCATION    =    27 
EXEC    STAC    <1>      <2>       <3>       <4>      <5>       <6>       <7> 

EXCON  N 

EXTYPE  LOC 

EXADD  ? 

EXVALHf  6 


<8>      <9>      <10>    <11>    <12>   <13>    <14> 


B+28 


ILOC 


I     13 


I    00020003 


***T    ABLE         D    U    M    P***    AT    LOCATION    =    28 

EXEC    STAC    <1>       <2>       <3>       <4>       <5>       <6>       <7>       <8> 

EXCON 
EXTYPE 
EXADD 
EXVALfif 


N 

N 

LOC 

LOC 

2 

3 

0 

0 

<9>      <10>    <11>    <12>    <I3>    <14> 
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TABLE   V    (CON'T) 


B*29 


I  LOO 


I     10 


I    00270000      | 


***T    ABLE 

EXEC    STAC    <1> 

EXCON 

EXTYPE 

EXADD 

EXVAL# 


E 

D    U 

M    P***    AT 

<1> 

<2> 

<3>       <4> 

N 

Y 

LOC 

INT 

2 

1 

0 

46 

LOCATION    =    29 
<5>      <6>      <7>      <8>      <9>      <10>    <U>    <12>    <13>    <14> 


BOO 


I  LOC 


I     K 


I    00020004       I 


***T    ABLE 

D    U    M    P*<=*    AT 

EXEC    STAC    <1> 

<2> 

<3>       <4> 

EXCON           In 

Y 

N 

EXTYPE         (LOC 

INT 

LOC 

EXACD              ? 

1 

4 

EXVAL#          |0 

46 

0 

LOCATION    =    30 
<5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <i'*> 


B*31 


ILOD 


I    vlO 


I    00270000       | 


***T    ABLE 
EXEC    STAC    <1> 
EXCON  IN 

EXTYPE         [LOC 
EXADD  2 

EXVAL#  10 


D  U  M  P***  AT 
<2>  <3>  <4> 
Y  lY 

INT       INT 
1  2 

46  47 


LOCATION    =    31      <• 
<5>      <6>      <7>      <8>      <9>      <10>    <U>    <12>    <13>    <14> 


B+32 


ADD 


I     10 


|    00100000      I 


***T    ABLE 

D    U 

M    P***    AT 

CONSTANTS    <1> 

<2> 

<3>       <4> 

CONSYM 

2 

I  3 

(5 

CONTYPE 

INT 

INT 

TNT       „ 

CONVAL 

46 

(47 

52          v— 

CONINT 

? 

13 

1  5 

LOCATION    =    32 
<5>      <6>       <7>      <8>      <9>      <10>    <11>    <12>    <13>    <!'+> 


NEW  EXPRESSION  ADDED 
B    :=   C  +  D; 


VALUE    STACK    (TOP    AT    139) 
C(ADD   46    47    | 52 )    C(GTR    48    49 


150) 


EXEC  STAC  <1>   <2> 

EXCON     IN  |Y 
EXTYPE     LOC   INT 
EXADD      2     3 
EXVALtf     0     52 


<3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <1*> 


B*33 


ISTO 


I  10 


I  00280000   I 


**n  a  b  i 

ADDR    TABL 

ADDRESS 

ADDTYPE 

ADDVAL 

ADDCON 

.    E 
<1> 

INT 

46 

1 

EXEC    STAC 

EXCON 

EXTYPE 

EXADD 

EXVAL0 

<1> 

Y 

INT 
3 
52 

D  U  M  P***  AT 
<2>   <3>   <4> 

4     1     2 

INT   INT   INT 
47    48    49 
2     0     0 


LOCATION  =  33 
<5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 
2 

INT 

52 

3 


<2>       <3>       <4>      <5>      <6>      <7>      <8>      <9>      <10>    <ll>    < 1 2>    <13>    <14> 


B*34 


I  DEL 


I     10 


I    002AOOOO       | 


***T  ABLE  D  U  M  P***  AT 
EXEC  STAC  <1>  <2>  <3>  <4> 
(EMPTY) 


LOCATION  =  34 
<5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


B05 


IXIT 


I     117 


|    00040011       | 
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TABLK   V    (CON'T) 


***T    ABLE  0    U    M    P***    AT    LOCATION    =    35 

CONT    STK      <1>  <2>      <3>       <4>      <5>      <6>       <7>      <3>      <9>      <10>    <ll>    <  1 2>    <13>    <1*> 

BLOCK*         12  !4 

ENTRY  1 37  I  17 


EXEC    STAC    <1>      <2>       <3>       <4>      <5>      <6>       <7>       <8>      <9>      <10>    <11>    <12>    <13>    <14> 
(EMPTY) 


B+36         0         IBRS  I     10 

BEFORE    THE   MEET    OPERATION:    . 


I     002E0000       I 

MEET  OPERATION   IS  NOW  PERFORMED  USING  THE  FIRST 

~  BLOCK  ON   THE   CONTROL  LIST 


OUTPUT    POOL    FROM    BLOCK*    4    IS: 

C(48:49,*,50)       C(  46 :  47,  *  ,52)       A(2,52,52)       All,*, 48)       A(4,47,47)       A(3,46,46) 


CURRENT    POOL    FOR    BLOCK*    2    IS: 

A(2,*,49)       A(l,*,48)       A(4,47,47)       A(3,46,46) 

CLASS  OCCURENCE  LIST: 


A  DOR 

CLASS  NUMBER 

NUMBER  OF  OCCURRENCES 

1 

49 

1 

2 

48 

1  ,-_ 

3 

47 

1^~~- _J 

4 

46 

1              ■ 

AFTER  PROCESSING  SIMPLE  VARIABLES 

CLASS  OCCURENCE  LIST: 

(EMPTY)  -« 


CLASS  REFINEMENT  TABLE: 
LOC        NEW  VALUES 


53 
43 
47 
46 


CURRENT    VALUE* 

49 
48 
47 

46 


FOUR  CLASS  NUMBERS 
■ARE   IN  THE  OCCURENCE 
LIST 

SIMPLE  VARIABLES   HAVE  EXHAUSTED  THE 
"CLASS   OCCURENCE  LIST 


INPUT    VALUE* 

52 
48 
47 
46 


NEW  CLASS   NUMBERS   ASSIGNED 
ONLY    IF   CLASS   NUMBERS   DIFFER 


AFTER    PROCESSING    ALL    EXPRESSIONS: 

CLASS    OCCURENCE    LIST: 

(EMPTY) 


CLASS  REFINEMENT  TABLE: 
LOC        NEW  VALUES 


53 
48 
47 
46 


CURRENT    VALUE* 

49 
48 
47 
46 


INPUT    VALUE* 

52 

48 
47 
46 


AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW   CURRENT    POOL/INPUT    PGOL    IS    THE    SAME    AS    OLO    CURRENT    POOL 


BLOCK   #2  WILL  NOT  BE   PROCESSED 
■BECAUSE   ITS   CURRENT   POOL    IS   SAME 


***T    ABLE         0    U    M    P***    AT    LOCATION    =    36 

AODR    TABL    <1>       <2>     .<3>       <4>      <5>     .<6>     .  <7>       <8>       <9>       <10>    <11>    <  1 2>    <13>    <H> 

ADOTYPE 

AODVAL 

ADDCON 


3 

4 

1  1 

2 

2 

0 

0 

INT 

INT 

INT 

INT 

I  NT 

ADD 

GTR 

46 

47 

48 

49 

52 

52 

50 

1 

2 

10 

0 

3 

0 

0 

EXEC    STAC    <1>      <2>       <3>       <4>      < 5>      <6>       <7>      <8>      <9>      <10>    <11>    <I2>    <13>    <14> 


CONTROL    AT    37,    FROM    BLK    2    TO    BLK    3    (PASS    1 )  -<- 

C*37         0         |ENT  | C |55  |    00038037       | 

***T    ABLE         D    U    M    P***    AT    LOCATION    =    37 

INPUT    POOL    FOR       BLOCKS    3    IS: 

C(<f8:49,*,50)   A(2,*,49)   All,*, 48)   A(4,47,47)   A(3,46,46) 


.CFA  PASSES  CONTROL  FROM  BLOCK  92 
TO  BLOCK  It  3. 
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TABLE   V    (CON'T) 


ADDR    TABL    <1>      <2>      <3>       <4>      <5>      <6>       <7>      <8>      <9>       <10>   <11>    <12>   <13>    <14> 

ADDRESS 
ADDTYPE 
ADDVAL 
ADDCCN 


3 

4 

11 

2 

INT 

INT 

INT 

INT 

46 

47 

48 

49 

1 

2 

0 

0 

VALUE    STACK    (TOP    AT    133) 
C(GTR    48    49    150) 


CONT    STK      <1>      <2>      <3>      <4>      <  5>      <6>       <7>       <8>      <9> 

(EMPTY) 

EXEC    STAC    <1>      <2>       <3>      <4>      <5>       <6>       <7>      <8>      <9> 

(EMPTY) 


<10>    <11>    <12>   <13>    <14> 
<10>   <11>    <12>   <13>    <H> 


B*38 


LOC 


I  15 


I  00023005   I 


***T    ABLE 
ADDR    TABL    <1> 


0    U    H    P***    AT    LOCATION    =    38 
<2>       <3>       <4>       <5>       <6>       <7> 


ADDRESS 

3 

4 

1 

2 

5 

ADDTYPE 

I  NT 

INT 

I  NT 

INT 

NULL 

ADDVAL 

46 

47 

48 

49 

0 

ADDCON 

1 

2 

10 

0 

0 

<8>      <9>      <10>    <11>    <12>   <13>    <K> 


EXEC    STAC    <l> 
EXCON  IN 

EXTYPE         JLOC 
EXADD  (5 

EXVAL#  10 


<2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <ll>    <12>    <13>    <14> 


B+39 


I  LOC 


I     14 


I    00020004       | 


***T    ABLE 
EXEC    STAC    <1> 
EXCON  IN 

EXTYPE  llOC 

EXADD 
EXVAL# 


13 


D  U  M  P***  AT  LOCATION  =  39 
<2>   <3>   <4>   <5>   <6>   <7> 

N 

LOC 
4 
0 


<8>      <9>      <!0>    <!!•>    <12>    <13>    <14> 


BHO 


lLOD 


I     10 


I     00270000       | 


***T    ABLE 
EXEC    STAC    <1> 
EXCON  IN 

EXTYPE  |LOC 

EXADD 
EXVAL# 


18 


D  U  M  P***  AT  LOCATION  =  40 

<2>   <3>   <4>   <5>   <6>   <7> 

Y 

INT 

2 

47 


<8>      <9>      <J0>    <11>    <12>    <13>    <1*> 


BH1 


ILOC 


I     13 


I    00020003      | 


***T    ABLE 
EXEC    STAC    <1> 
EXCCN  IN 

EXTYPE  LOC 

EXADD  15 

EXVAL#  |0 


D  U  M 

<2> 

I  Y 

INT 

[  2    [ 

1 47   | 

P***  AT  LOCATION  = 
<3>   <4>   <5>   <6> 

N 

LOC 
3 
0 


41 
<7> 


<8>      <9>      <10>    <11>    <12>    <13>    <14> 


8*42 


lLOD 


I     10 


I    00270000       | 


***T    ABLE 
EXEC    STAC    <1> 
EXCON  (N 

EXTYPE  LOC 

EXADD  15 

EXVAL#         |0 


D  U  M  P***  AT  LOCATION  =  42 
<2>   <3>   <4>   <5>   <6>   <7> 


Y 

INT 
2 
47 


Y 

INT 

1 

46 


<8>      <9>      <10>    <U>    <12>    <13>    <14> 


B»43 


I  ADD 


I     10 


I    00100000       I 


***T    ABLE         0    U    M    P***    AT    LOCATION 

VALUE    STACK     (TOP    AT     139) 

C(ADD    47    46     |52)    C(GTR    48    49    |  50) 


43 
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TABLE   V    (CON'T) 


EXEC    STAC    <1>      <2>      <3>       <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 


EXCON 

N 

Y 

EXTYPE 

LOC 

INI 

EXADO 

5 

3 

EXVAL# 

0 

52 

B*44 


ISTO 


I     10 


I    00280000       I 


***T    ABLE 
ADOR    TABL    <1> 
ADDRESS       13 
ADDTYPE  INT 

AODVAL  46 

ADDCON  II 


D    U    M    P***    AT    LOCATION    =    44      - 

<2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <  1 2>   <13>    <K> 

5 

INT 
52 
3 


4 

1 

2 

I  NT 

INT 

INT 

47 

48 

49 

2 

0 

0 

EXEC  STAC  <l>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


EXCON 

Y 

EXTYPE 

INT 

EXADO 

3 

EXVALtf 

52 

B+45 


I  DEL 


!  10 


I  002A3000   ! 


***T  ABLE    D  U  M  P***  AT  LOCATION  =  45 

EXEC  STAC  <1>   <2>   <3>   <4>   <  5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <1*> 

(EMPTY) 


***T    ABLE         0    U    M    P***    AT    LOCATION    =     45 

ADDR    TABL    <1>      <2>      <3>       <4>      <5>       <6>       <7>      <8>       <9>       <10>    <11>    <12>    <13>    <l«t> 


ADDRESS 
ADDTYPE 
ADDVAL 
ADDCON 


3 

14 

1 

2 

5 

0 

INT 

INT 

INT 

INT 

INT 

AOO 

46 

47 

48 

49 

52 

52 

1 

12 

0 

0 

3 

0 

0 
GTR 
50 
0 


FINAL    OPTIMIZATION    RESULTS 


OPTIMIZATION    AT    32 

(47,461 32,52» 

OPTIMIZATION    AT    43 

(47,46132,52) 


CONSTANT    PROPAGATION 


CONSTANT    PROPAGATION 


"AT  LOCATION   32  AN  EXPRESSION  WAS 
DETECTED  AS   A  CONSTANT  PROPAGATION 

-AT  LOCATION   A3  AN   EXPRESSION   IS    IDEMTICLE 
TO  AN   EXPRESSION  AT  LOCATION   32 
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TABLE   V    (CON'T) 


*»*< 

i       FORMATTED    INTERMEDIATE    CODE    DUMP       * 

LOC 

OFF            OP    CODE             CNS    AOR 

SET                                         /et: 

RAW  :dde 

ftmtTlf. 

0 

0 

ENT 

46 

OOO3302E 

1 

0 

TOGGLE 

257 

OOOB01O1 

2 

0 

TOGGLE 

258 

OOOB0102 

3 

0 

LOC 

3 

00023003 

4 

0 

INT 

1 

00050001 

5 

0 

STO 

0 

00280000 

6 

0 

DEL 

0 

00260000 

7 

0 

LOC 

4 

00020004 

e 

0 

INT 

2 

00050002 

9 

0 

STO 

0 

00280000 

10 

0 

DEL 

0 

O02A000O 

11 

0 

LOC 

1 

00020001 

12 

0 

INT 

0 

00050000 

13 

0 

STO 

0 

00290000 

14 

0 

LOC 

2 

00020002 

15 

0 

INT 

0 

00050000 

16 

0 

STD 

0 

00290000 

17 

0 

ENT 

50 

00030032 

18 

0 

LOC 

1 

00020001 

19 

0 

LOD 

0 

00270000 

20 

0 

LOC 

2 

00020002 

21 

0 

LOO 

0 

00270000 

22 

0 

GTR 

1024 

00210400 

23 

0 

XIT 

37 

00040025 

24 

0 

XIT 

26 

0004001  A 

25 

0 

BSC 

0 

002FOOOO- 

26 

0 

ENT 

60 

00030>5C 

27 

0 

LOC 

2 

000^0002 

28 

0 

LOC 

3 

>OOO20003 

29 

0 

LOD 

0          ^ 

"00270000 

30 

0 

LOC 

* ^^ 

00020004 

31 

0 

LOD 

00270000/ 

32 

0 

ADD 

C 

To  16 

0010«UJ?3 

33 

0 

STO 

0 

O0280/a'0O 

34 

0 

DEL 

0 

0020000 

35 

0 

XIT 

17 

0004001 1 

36 

0 

BRS 

0 

0O2E0000 

37 

0 

ENT 

55 

/00030037 

38 

0 

LOC 

5             > 

'  00020005 

39 

0 

LOC 

4         / 

00020004 

40 

0 

LOD 

0     / 

00270000 

41 

0 

LOC 

3/ 

00020003 

42 

0 

LOD 

00270000 

43 

0 

ADD 

C 

T012 

O010B3F4 

44 

0 

STO 

0 

00280000 

45 

***** 

0 

c**$***  = 

DEL 

I#S 

0 

00240000 

t-tfU-tHHHfifiUf. 

*** 

OPTIMIZATION 
TYPE 

** A  **.******=!<********* ****** 


OPTIMIZATIONS  ARE  FLAGGED   IN 
IN  THE  C-FIELD 


CONSTANT    PROPAGATION 


CONSTANT     PROPAGATION 

c**$************ ************ 
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TABLE  V  (CON'T) 


FINAL  OPTIMIZATION  POOL  FOR  EACH  BLOCK  IS: 


FINAL  POOL  FOR   BLOCKS  1  IS: 
(NULL) 


FINAL  POCL  FOR   BLOCKS  2  IS: 

A(Z,*,53)       A(l,*,48)       A(4,47,47)       A(3, 46,46) 


ACTUALLY  THE  MOP  FOR  EACH  BLOCK. 


FINAL    POCL    FOR      BLOCKS    3    IS:  ' 

C<48:49,*,50)       A(2,*,49)       A(lf*,48)       A(4,47,47)       A(3,46,46) 


FINAL    POCL    FOR      BLOCKS    4    IS: 

C(48:49,*,50)       A(2,*,49)       All,*, 48)       A(4,47,47)       A(3,46,46) 


BASIC  BLOCK  SI 

BEGINNING  AT  Of  ENDING  AT  17 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  HZ 

BEGINNiNG  AT  17,  ENDING  AT  25 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  S3 

BEGINNING  AT  37,  ENDING  AT  45 
BLOCK  TRAVFP.SED  1  TIMES 
1  REFERENCES: 

2 
BASIC  BLOCK  #4 

BEGINNING  AT  26,  ENDING  AT  36 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 

2 


BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER 

1 
2 
3 
4 


NUMBER  OF  PASSES 

1 
1 
1 
1 


TOTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  4 

USING  THE  STEEPEST  DESCENT  (MINIMUM  CURRENT  POOL)   BLOCK  SELECTION  ALGORITHM, 

TIME  FOR  THE  OPTIMIZATION  WAS  0.233  SECONDS. 

***COOE  SYNTHESIS  FILTER  IS  COMPLETE*** 
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III.   TESTING  OF  BLOCK  SELECTION  METHOD 


As  previously  mentioned,  a  principal  objective  of  the 
implementation  of  Algorithm  Q  was  to  test  block  selection 
methods.  Three  classes  of  programs  were  analyzed  using  the 
CSF.  A  class  of  programs  was  developed  by  writing  test 
programs  that  would  encompass  various  typical  program  flows. 
This  class  is  by  far  the  more  complex  of  the  three  test 
classes;  however,  it  was  felt  that  a  "foreign"  source  for 
test  programs  should  be  sought  to  inject  unbiased  data. 
Using  ALGOL-E  programs  written  by  students  in  an 
introductory  ALGOL  class,  two  samples  were  obtained. 
TABLES  VI,  VII  and  VIII  are  the  synopses  of  the  data 
compiled  on  these  program  sets.  TABLES  IX,  X  and  XI  give  a 
statistical  summary  of  the  program  classes  while  TABLE  XII 
is  a  summary  of  all  programs  tested. 

Lukasczyk  [34]  concluded  that  "steepest  descent" 
outperformed  LIFO,  FIFO  and  the  depth-first-search  selection 
algorithm  of  Hecht  and  Oilman  [  23,  24 ].  The  method  used  by 
Lukasczyk  to  heuristically  arrive  at  steepest  descent  was  to 
process  the  block  with  the  minimum  number  of  equivalence 
classes  first.  To  observe  the  effects  of  increased 
complexity,  the  test  programs  were  broken  into  five 
subclasses: 

1)  code  size  less  than  200  words 

2)  code  size  from  200  to  400  words 

3)  code  size  from  400  to  600  words 

4)  code  size  from  600  to  800  words 

5)  code  size  greater  than  800  words. 
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TABLES  XIII,  XIV,  XV,   XVI   and   XVII   are   the   summary 
analyses  of  these  subclasses. 

Figure  9  is  a  graphical  analysis  of  the  five  subclasses 
of  program  size  tested.  It  shows  that  heuristic  steepest  * 
descent  results  in  a  faster  convergence  rate  for  the  global 
flow  analysis  algorithm  given  any  of  the  code  file  sizes 
tested.  The  percentage  of  improvement  between  steepest 
descent  and  LIFO  at  each  test  level  is: 


LEVEL 

less  200 
200  to  400 
400  to  600 
600  to  800 
greater  800 


PERCENTAGE 
IMPROVEMENT 

12.5% 
2.3% 

4.4% 
4.6% 
4.5%. 


The  improvement  of  steepest  descent  over  LIFO  is  obvious  and 
as  Figure  9  shows,  the  other  two-  methods  tested  are  worse 
than  LIFO  in  all  cases.  As  can  be  seen,  the  percentage  of 
improvement  does  not  clearly  justify  the  use  of  a  specific 
selection  method  as  program  size  increases.  In  fact,  the 
supposition  that  the  average  number  of  blocks  increases  with 
code  size  is  even  suspect.  Unfortunately,  upon  close 
examination  the  test  data  has  deff iciencies.  The  number  of 
blocks  processed  for  programs  with  a  code  file  size  from  0 
to  400  words  is  biased  from  the  generalized  class  of  test 
programs.  These  programs  were  written  to  be  as  complex  as 
possible  and  do  not  reflect  a  true  "real  world"  program 
flow.  The  code  file  sizes  analyzed  are  restricted  to 
programs  with  less  than  1000  words.  This  limitation 
resulted  from  the  inability  of  the  CSF  to  handle  programs 
that  include  array  structures.   It  is  felt  that  the   limited 
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sample   size,   coupled   with  the  biased  generalized  programs 
has  severely  affected  the  test  results. 
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TABLE    VI 


DATA    FOR    STUDENT    TEST    #1 


NUMBER 

BLOCK  SELECTION  METHOD  CHOSEN 

OPTIHS 

CODE 

BLOCKS 

LIFO 

FIFO 

MIN  POOL 

MAX  POOL 

1 

153 

15 

20 

•  19 

15 

20 

3 

162 

12 

24 

42 

24 

24 

0 

123 

14 

14 

23 

14 

14 

1 

152 

15 

20 

19 

15 

20 

0 

99 

12 

12 

19 

12 

12 

0 

101 

12 

12 

19 

12 

12 

0 

144 

14 

14 

23 

14 

16 

3 

91 

10 

16 

19 

16 

19 

0 

115 

18 

30 

35 

23 

36 

0 

165 

17 

18 

,   28 

17 

18 

0 

104 

15 

20 

19 

16 

20 

0 

122 

14 

14 

23 

14 

14 

0 

126 

14 

14 

23 

14 

14 

1 

156 

15 

20 

19 

15 

21 

0 

132 

16 

16 

27 

16 

■  16 

0 

115 

1  2 

15 

23 

16 

16 

0 

97 

12 

12 

19 

12 

12 

0 

109 

16 

20 

19 

18 

20 

8 

127 

5 

5 

5 

5 

5 

0 

99 

12 

12 

19 

12 

12 

0 

104 

15 

20 

19 

16 

20 

0 

108 

15 

20 

19 

16 

20 

0 

99 

12 

12 

19 

12 

12 

0 

109 

16 

20 

19 

18 

20 

0 

93 

12 

12 

19 

12 

12 

0 

118 

12 

15 

22 

15 

15 
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TABLE    VI     (CGN'T) 


0 

96 

12 

12 

19 

12 

12 

0 

94 

12 

12 

19 

12 

12 

0 

101 

12 

12 

19 

12 

12 

0 

111 

16 

20 

19 

18 

20 

0 

71 

12 

12 

19 

12 

12 

0 

71 

12 

12 

19 

12 

12 

0 

81 

16 

23 

21 

19 

23 

0 

99 

12 

12 

19 

12 

12 

0 

93 

12 

12 

19 

12 

12 

0 

107 

16 

23 

21 

17 

23 

0 

107 

16 

23 

21 

17 

23 

0 

107 

16 

23 

21 

17 

23 

0 

87 

16 

20 

19 

17 

20 

5 

728 

9 

13 

13 

13 

13 

0 

102 

15 

20 

19 

16 

20 

91 


TABLE  VII 


DATA  FOR  STUDENT  TEST   #2 


NUMBER 

BLOCK  SELECTION  METHOD  CHOSEN 

OPTIMS 

CODE 

BLOCKS 

LIFO 

FIFO 

MIN  POOL 

MAX  POOL 

2 

161 

24 

53 

51 

38 

68 

4 

513 

9 

13 

13 

13 

13 

5 

540 

9 

14 

14 

14 

14 

5 

728 

9 

13 

13 

13 

13 

6 

719 

1  1 

18 

18 

18 

18 

9 

359 

12 

19 

22 

19 

20 

4 

544 

9 

13 

13 

13 

13 

4 

979 

9 

13 

13 

13 

13 

7 

348 

31 

66 

70 

74 

76 

6 

665 

11 

15 

15 

14 

15 

4 

812 

13 

18 

21 

16 

16 

7 

708 

10 

16 

20 

15 

15 

5 

625 

9 

16 

16 

16 

16 

5 

582 

10 

14 

14 

14 

14 

4 

928 

11 

15 

15 

15 

15 

6 

781 

14 

20 

22 

19 

20 

5 

693 

12 

16 

16 

16 

16 

11 

307 

25 

42 

48 

44 

46 

9 

286 

18 

40 

43 

38 

42 

10 

296 

24 

42 

56 

43 

64 

6 

418 

16 

26 

30 

24 

26 

8 

584 

17 

28 

33 

26 

28 

11 

926 

19 

31 

38 

29 

34 

10 

629 

21 

36 

43 

32 

38 

10 

289 

25 

43 

56 

45 

48 
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TABLE  VIII 


GENERALIZED  STRUCTURE  TEST 


NUK3ER 

BLOCK  SELECTION  METHOD  CHOSEN 

OPTIMS 

CODE 

BLOCKS 

LIFO 

FIFO 

KIN  POOL 

MAX  POOL 

9 

107 

3 

3 

3 

3 

3 

4 

113 

10 

13 

11 

10 

13 

9 

130 

6 

8 

8 

8 

8 

5 

130 

6 

8 

8 

8 

8 

1 

153 

15 

20 

19 

15 

20 

6 

100 

7 

10 

S 

7 

10 

1 

140 

10 

19 

19 

19 

19 

2 

135 

10 

18 

18 

18 

18 

14 

226 

1  1 

22 

16 

11 

22 

10 

269 

15 

26 

26 

26 

26 

1 

141 

10 

19 

19 

19 

19 

8 

127 

5 

5 

5 

5 

5 

1 

152 

15 

28 

31 

15 

20 

8 

239 

14 

28 

31 

21 

25 

9 

87 

3 

3 

3 

3 

3 

4 

113 

10 

13 

11 

10 

13 

3 

90 

10 

16 

19 

16 

19 

10 

269 

15 

26 

26 

26 

25 

17 

256 

10 

12 

12 

12 

12 

10 

281 

20 

36 

38 

34 

38 

10 

242 

15 

25 

26 

23 

27 

18 

216 

8 

10 

10 

10 

10 

18 

259 

11 

15 

15 

15 

15 

17 

256 

10 

12 

12 

12 

12 

10 

215 

14 

20 

23 

20 

23 

17 

213 

7 

7 

7 

7 

7 

9 

266 

14 

23 

23 

23 

22 

1 

102 

7 

14 

16 

15 

18 
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TABLE  IX 


SUMMARY  FOR  STUDENT  TEST  #  1 


BLOCK 
SELECTION 

METHOD 

AVG 
BLOCKS 
PROCESSED 

AVG 
PASSES 
PER    BLOCK 

LIFO 

16.9 

1.2 

FIFO 

20.9 

1.5 

a  in 

POOL 

15.  1 

1.  1 

MAX 
POOL 

17.2 

1.2 

AVERAGE  CODE  GENERATED 


126 


AVERAGE  OPTIMIZATIONS  DETECTED:    .3 


AVERAGE  BLOCKS:    13.8 
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TABLE  X 


SUMMARY  FOR  STUDENT  TEST  #  2 


BLOCK 
SELECTION 
METHOD 

AVG 
BLOCKS 
PROCESSED 

AVG 
PASSES 
PER  BLOCK 

LIFO 

24.9 

1.6 

FIFO 

27.4 

1.8 

MIN 
POOL 

24.0 

1.6 

MAX 
POOL 

27.2 

1.7 

AVERAGE  CODE  GENERATED:    610 


AVERAGE  OPTIMIZATIONS  DETECTED:    6.4 


AVERAGE  BLOCKS 


14.7 
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TABLE  XI 


SUMMARY  FOR  GENERALIZED  STRUCTURE  TEST 


BLOCK 

AVG 

AVG 

SELECTION 

BLOCKS 

PASSES 

METHOD 

PROCESSED 

PER  BLOCK 

LIFO 

16.8 

1.5 

FIFO 

16.9 

1.5 

MIN 

15.4 

1.4 

POOL 

MAX 

16. a 

1.5 

POOL 

AVERAGE  CODE  GENERATED:    185 


AVERAGE  OPTIMIZATIONS  DETECTED 


8.3 


AVERAGE  BLOCKS 


10.8 
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TABLE  XII 


SUMMARY  FOR  ALL  TESTS 


BLOCK 
SELECTION 
METHOD 

AVG 
BLOCKS 

PROCESSED 

AVG 
PASSES 
PER    BLOCK 

LIFO 

19.0 

1.4 

FIFO 

21.5 

1.6 

MIN 

POOL 

17.5 

1.3 

MAX 
POOL 

19.6 

1.4 

AVERAGE  CODE  GENERATED:    270 


AVERAGE  OPTIMIZATIONS  DETECTED:    4.2 


AVERAGE  BLOCKS:    13.2 
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TABLE  XIII 


ANALYSIS  OF  CODE  SIZE  LESS  THAN  200  WORDS 


i 

SLOCK 

AVG 

AVG 

SELECTION 

BLOCKS 

PASSES 

METHOD 

PROCESSED 

PER  BLOCK 

LIFO 

16.8 

1.3 

FIFO 

19.8 

1.5 

MIN 

14.9 

1.2 

POOL 

MAX 

17.4 

1.3 

POOL 

. 

AVERAGE  CODE  GENERATED:    115 


AVERAGE  OPTIMIZATIONS  DETECTED 


1.  1 


AVERAGE  BLOCKS:    12.9 
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TABLE  XIV 


ANALYSIS  OF  CODE  SIZE  FROM  200  TO  400  WORDS 


BLOCK 

SELECTION 
METHOD 

AVG 
BLOCKS 
PROCESSED 

AVG 
PASSES 
PER  BLOCK 

LIFO 

27.5 

1.6 

FIFO 

29.9 

1.7 

KIN 
POOL 

26.9 

1.6 

MAX 
POOL 

28.9 

1.6 

AVERAGE  CODE  GENERATED:    263 


AVERAGE  OPTIMIZATIONS  DETECTED 


11.9 


AVERAGE  BLOCKS: 


15.9 
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TABLE  XV 


ANALYSIS  OF  CODE  SIZE  FROM  400  TO  600  WORDS 


BLOCK 

AVG     . 

AVG 

SELECTION 

BLOCKS 

PASSES 

METHOD 

PROCESSED 

PER    BLOCK 

LIFO 

18.9 

1.5 

FIFO 

20.7 

1.6 

MIN 

18.  1 

1.5 

POOL 

MAX 

18.9 

1.5 

POOL 

AVERAGE  CODE  GENERATED: 


524 


AVERAGE  OPTIMIZATIONS  DETECTED:    5.5 


AVERAGE  .BLOCKS:    12.2 
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TABLE  XVI 


ANALYSTS  OF  CODE  SIZE  FROM  600  TO  800  WORDS 


BLOCK 

AVG 

AVG 

SELECTION 

BLOCKS 

PASSES 

METHOD 

PROCESSED 

PER  BLOCK 

LIFO 

17.8 

1.  5 

FIFO 

19.  1 

1.6 

KIN 

17.0 

1.5 

POOL 

MAX 

17.9 

1.5 

POOL 

AVERAGE  CODE  GENERATED:    694 


AVERAGE  OPTIMIZATIONS  DETECTED 


6.  1 


AVERAGE  BLOCKS:    11.7 
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TABLE    XVII 


ANALYSIS    OF    CODE    FILE    SIZE    GREATER    THAN    800     WORDS 


BLOCK 

SELECTION 
METHOD 

AVG 
BLOCKS 
PROCESSED 

AVG 
PASSES 
PER    BLOCK 

LIFO 

19.2 

1.5 

FIFO 

21.8 

1.7 

i 

MIN 

POOL 

18.4 

1.4 

MAX 
POOL 

19.6 

1.5 

AVERAGE    CODE    GENERATED:  901 


AVERAGE   OPTIMIZATIONS    DETECTED:  6.4 


AVERAGE    BLOCKS:  12.8 
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900   - 


800   - 


600   - 


E 


H   400   - 


R 


D   200   - 


100 


10 


15 


20 


25 


30 


AVG  BLOCKS  PROCESSED 

FIGURE  9 
RELATIONSHIP  OF  CODE  SIZE  AND  BLOCKS  PROCESSED 
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IV.   CONCLUSIONS 


A  complete  implementation  of  Kildall's  global  flow 
analysis  algorithm  has  been  presented.  However,  testing  of 
convergence  rates  by  different  block  selection  methods  was 
inconclusive.  It  is  felt  that  the  primary  reason  for  this 
was  due  to  a  lack  of  test  programs.  Unfortunately,  programs 
are  available  but  cannot  be  used  because  of  current  CSF 
limitations.  The  inability  to" handle  subscripted  variables 
is  a  primary  limitation.  If  this  capability  were  added  to 
the  CSF,  not  only  would  a  greater  amount  of  small  test 
programs  be  available,  but,  more  importantly,  larger 
programs  could  be  tested.  Kildall  [29]  has  implemented  a 
method  of  handling  subscripts  in  a  similar  CSF  optimizer. 
This  method  assigns  class  numbers  to  an  array  element  only 
when  the  exact  element  is  known  and  assumes  a  worst  case 
assumption  by  nullifying  all  array  assignments  when  an 
assignment  is  made  to  an  unknown  element.  The 
implementation  of  this  method  in  the  CSF  would  be  relatively- 
straight  for  ward. 

Of  the  four  block  selection  algorithms  tested,  steepest 
descent  was  shown  to  result  in  a  faster  convergence  rate  for 
the  global  flow  analysis  algorithm  in  all  test  samples. 
Unfortunately,  LIFO  was  the  easiest  to  implement  and  its 
small  performance  loss  in  relation  to  steepest  descent 
cannot  really  be  justified  due  to  the  additional  coding  and 
longer  run  time  for  steepest  descent.  FIFO  performed  the 
poorest  of  all  selection  methods  tested. 

In  summary,  steepest  descent  resulted  in  the  fastest 
convergence  rate  for  the  global  flow  analysis  algorithm,  but 
statistically  the  improvement  shown  is  not  significant. 
Except    for    the   possible   rejection   of   FIFO,   no   real 
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conclusions  as  to  which  block  selection  method  is  better  can 
be  substantiated. 

Live  expression  analysis  is  an  area  of  interest  that  was 
not  approached  in  this  version  of  the  CSF.  Kildall  [28, 
30]  has  shown  that  a  backward  pass  through  the  progranr  to 
detect  live  expressions  would  allow  the  use  of  the  live 
expression  pool  at  each  node  as  the  initial  current  pool 
instead  of  the  identity  operand  for  the  defined  meet 
operator.  Hand  analysis  using  this  method  show  a  marked 
improvement  in  the  convergence  rate  of  the  algorithm.  An 
effort  to  implement  a  live  expression  analysis  into  the  CSF 
should  be  attempted  since  it  would  considerably  improve  the 
convergence  rate  of  the  algorithm. 
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COMPUTER  OUTPUT 


CARD 

IBL 

1     SYL 

1 

1 

0 

0 

COMMENT              TEST    PROGRAM    *    1 

$EXECt 

^TE 

3 

0 

1 

BEGIN    LOCAL         A,B,C ,0, E tF , G ,H, 

I,J; 

4 

1 

A     :=    10; 

5 

5 

B     :=    3; 

6 

9 

C    :=    20; 

7 

13 

D    :=    5; 

8 

17 

E     :=    20; 

9 

21 

F    :=    10; 

10 

25 

WHILE    A    GTR    B    DO 

11 

35 

BEGIN 

12 

35 

WHILE    C    GTR    0    00 

13 

2 

45 

BEGIN 

14 

2 

45 

WHILE    E    GTR    F    00 

15 

3 

55 

BEGIN 

16 

3 

55 

B    :=    B    ♦    1  ; 

17 

4 

62 

F    :=   F    ♦    l; 

9 

18 

4 

69 

0    :=   0    ♦    i; 

19 

4 

76 

END; 

20 

3 

79 

B    :=    B    frli 

21 

3 

86 

0    :=   D   ♦    1; 

22 

3 

93 

E    :=   B; 

23 

3 

93 

H    :=    E   *   C; 

24. 

3 

106 

END; 

25 

2 

109 

B    :=   B    *    1; 

26 

2 

116 

E    :=   C; 

27 

2 

121 

J    :=   C   *    B; 

28 

2 

129 

I    :=    8  *    C; 

29 

2 

137 

END; 

30 

i 

140 

END 

31 

i 

140 

EOF 

CODE    FILE    COPIED     (140    WORDS) 
CONSTANT    TABLE    COPIED     (10    WORDS) 
2    RECORDS    WRITTEN    INTO    PILE    1 
END    OF    COMPILATION    FEBRUARY    9,     1975. 

31   CARDS    WERE    READ. 

NO  ERRORS    WERE   DETECTED. 


CLOCK    TIME 


18:9:7.40. 


SET  UP   TIME  0:0:0.04. 

ACTUAL    COMPILATION    TIME       0:0:0.80. 
CLEAN-UP    TIME    AT    END  0:0:0.01. 

TOTAL    TIME     IN    COMPILER         0:0:0.85. 
COMPILATION    RATE    :2325    CARDS    PER    MINUTE. 
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***CODE    SYNTHESIS    FILTER*** 
BLOCK    SELECTION    METHOD   WILL    BE    STEEPEST    DESCENT    (MINIMUM    CURRENT    POOL) 

***C    OMPLETE         TABLE         DUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


***T    ABLE 


DUM    P***    AT    LOCATION 


CONSTANTS    <1>      <2>       <3>      <4>      <  5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 


CONSYK 
CONTYPE 
CONVAL 
CONINT 


10  13  120       15 
INT       INT       INT    1  INT 
141       142       143    (144 

10  |3  1 20       |5 


1 

I  NT 
145 
1 


ADDR    TABL    <1>      <2>      <3>       <4>      < 5>      <6>       <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 
(EMPTY) 

VALUE    STACK    (TOP    AT    127) 


CONT    STK      <1>      <2>      <3>       <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>   <13>    <14> 

BLOCK*         10 
ENTRY  10 


EXEC    STAC    <1>      <2>       <3>       <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 
(EMPTY) 


****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF     CP  CODE     CNS  ADR     RAW  :3DE 

OPTIMIZATION 

SET                    /ETC 

TYPE 

*£****$*******************#****************************:)<*****  ********* 

0     0 

ENT 

C 

141   - 

0003308D 

1      0 

TOGGLE 

257 

00080101 

2     0 

LOC 

1 

00023301 

3     0 

INT 

1 

00050301 

4     0 

STO 

0 

00280000 

5     0 

DEL 

0 

O02A00OO 

6     0 

LOC 

2 

00020302 

7     0 

INT 

2 

00053002 

8     0 

STO 

0 

00280300 

9     0 

DEL 

0 

002A0000 

10     0 

LOC 

3 

00023303 

11     0 

INT 

3 

00050003 

12     0 

STO 

0 

00283000 

13     0 

DEL 

0 

002A3000 

14     0 

LOC 

4 

00023034 

15     0 

INT 

4 

00053004 

16     0 

STO 

0 

00280000 

17     0 

DEL 

0 

002A3000 

18     0 

LOC 

5 

000?0005 

19     0 

INT 

3 

00050303 

20     0 

STO 

0 

00283000 

21     0 

DEL 

0 

002AOOOO 

22     0 

LOC 

6 

OOO200O6 

' 

23     0 

INT 

1 

00050001 

24     0 

STO 

0 

00233300 

25     0 

DEL 

0 

002A0300 

26     0 

ENT 

1 

00033301 

27     0 

LOC 

1 

00020001 

28     0 

LOD 

0 

00273330 

29     0 

LOC 

2 

00023302 

30     0 

LOD 

0 

00270000 

31     0 

GTR 

0 

00213330 

\l           ° 

XIT 

140 

OC04000C 

33     0 

XIT 

35 

00043023 

34     0 

BSC 

0 

007F0300 

35     0 

ENT 

1 

00033301 

36     0 

ENT 

1 

00030301 

37     0 

LOC 

3 

00023303 

38     0 

LOD 

0 

00270000 

39     0 

LOC 

4 

00023304 

40     0 

LOO 

0 

00270000 

41     0 

GTR 

0 

00210000 
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0 

XII 

0 

XIT 

0 

BSC 

0 

ENT 

0 

ENT 

0 

LOC 

0 

LOO 

0 

LOC 

0 

LOO 

0 

GTR 

0 

XIT 

0 

XIT 

0 

BSC 

0 

ENT 

0 

LOC 

0 

LOC 

0 

LOO 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

XIT 

0 

BRS 

0 

FNT 

0 

LOC 

0 

LCC 

0 

LOD 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOO 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOD 

0 

MUL 

0 

STO 

0 

DEL 

0 

XIT 

0 

PRS 

0 

ENT 

0 

LOC 

0 

LOC 

0 

LOO 

0 

INT 

0 

AOD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOD 

0 

MUL 

0 

STO 

0 

DEL 

1UV 

0U043J6D 

45 

0004332D 

0 

002FOOOO 

1 

00030301 

1 

00033301 

5 

00023005 

0 

00273000 

6 

00020306 

0 

00273000 

0 

00210000 

79 

0004004F 

55 

00043037 

0 

002F3300 

1 

00030001 

2 

00023002 

2 

00023302 

0 

00270000 

5 

00050305 

0 

00100300 

0 

00280000 

0 

002A3000 

6 

00023006 

6 

00023306 

0 

00273000 

5 

00053005 

0 

00103300 

0 

00283300 

0 

002A000O 

4 

00023304 

4 

00020304 

0 

00270000 

5 

00050005 

0 

00103300 

0 

00280000 

0 

002A3000 

46 

000^332E 

0 

002E3000 

1 

00030001 

2 

00020002 

2 

00020002 

0 

00273000 

5 

00053005 

0 

00103000 

0 

00280000 

0 

002&3000 

4 

00023304 

4 

00023304 

0 

00270300 

5 

00050305 

0 

00103300 

0 

00283300 

0 

OO2A00OO 

5 

00023005 

2 

00023002 

0 

00270000 

0 

00280000 

0 

002AOOOO 

8 

00020308 

5 

00023305 

0 

00270000 

3 

00020003 

0 

002700CO 

0 

001<t0300 

0 

00283000 

0 

002A3300 

36 

00043324 

0 

002E0300 

1 

00030301 

2 

00023302 

2 

00023002 

0 

00270000 

5 

00050305 

0 

00103300 

0 

00280330 

0 

032A3300 

5 

00023305 

3 

00023303 

0 

00270300 

0 

00283300 

0 

002A0300 

10 

0002330A 

3 

00020003 

0 

00270303 

2 

00023332 

0 

00273000 

0 

0OU03OO 

0 

00283300 
002A3000 

0 
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1*0 

U 

LUL 

V 

UUU^UJOV 

I31 

132 

0 

LOC 

2 

00023302 

0 

LOD 

0 

00270000 

133 

0 

LOC 

3 

00023303 

134 

0 

LOD 

0 

00270000 

135 

0 

MUL 

0 

00143000 

136 

0 

STO 

0 

00280300 

137 

0 

DEL 

0 

002A3000 

138 

0 

XIT 

26 

0004301A 

139 

0 

BRS 

0 

002E3300 

140 

0 

ENT 

1 

00033301 

$********♦****************#**#*********#**********#****#** 

BASIC    BLOCK    #1 

BEGINNING    AT    0,     ENDING    AT    0 

BLOCK    TRAVERSED    0    TIMES 

( 

)    REFERENCES: 

***E 

ND         OF         COMPLETE         TABLE 

D    U    M    P*** 

B*2 

0 

LOC 

1 

00023001 

B+3 

0 

INT 

1 

00050001 

B*4 

0 

STO 

0 

00280000 

B*5 

0 

DEL 

0 

OO2A000O 

B*6 

0 

LOC 

2 

00020302 

B+7 

0 

INT 

2 

00050002 

B+8 

0 

STO 

0 

00283300 

B*9 

0 

DEL 

0 

002A3300  • 

B*10 

0 

LOC 

3 

00023303 

B+ll 

0 

INT 

3 

00053303 

B  +  12 

0 

STO 

0 

00283000 

B  +  13 

0 

DEL 

0 

002A0300 

B*14 

0 

LOC 

4 

00023004 

B  +  15 

0 

INT 

4 

00053004 

B*16 

0 

STO 

0 

00283000 

B  +  l  7 

0 

DEL 

0 

002A3300 

B  +  18 

0 

LOC 

5 

00023005 

B  +  19 

0 

INT 

3 

00053303 

B+20 

0 

STO 

0 

00280300 

B+21 

0 

DEL 

0 

002A3000 

B+22 

0 

LOC 

6 

00023006 

B  +  23 

0 

INT 

1 

00050301 

B+24 

0 

STO 

0 

00283000 

B+25 

0 

DEL 

0 

GO2AG0O0 

B+26 

0 

ENT 

1 

00030301 

INITIAL    CURRENT    OPTIMIZED    POOL     TO    BE    USED    FOR       BLOCK)*    2     IS: 

A(6, 141,141)       A(5, 143,143)       A(4,144,144)       A13.143.143)        A(2, 142.142) 

AU.141,  141  ) 

2    (PASS    1) 

00038391 
00023001 
00270000 
00023302 
00270000 
00210000 
0004338C 
00043023 
002FOOOO 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCKS  3  IS: 
C(  141: 142,*, 147)   A(6,141,14l)   A(5,143,143)   A(4,144,144) 
A(2,142,142)   A(l,141,141) 


CONTROL    AT 

26,     FROM    BLK     1 

I    TO    BLK 

C*26         0 

ENT 

C 

145 

B+27         0 

LOC 

1 

B+28         0 

LOD 

0 

B+29         0 

LOC 

2 

B+30         0 

LOD 

0 

B  +  31         0 

GTR 

0 

B  +  32         0 

XIT 

140 

B  +  33         0 

XIT 

35 

B*34         0 

PSC 

0 

A( 3,143,143) 


CONTROL    AT    35,     FROM    BLK     2    TO 
C+35         0         IENT  | C I  1 50 

B*36         0         lENT  I     |l 


LK    3    (PASS    1) 

00038096 
00033001 


INITIAL  CURRENT  OPTIMIZED  POOL 
A(6,141,141) 
141,141) 


C(  141: 142,*, 147) 
A(2,142,142S       A(l 


TO    BE    USED    FOR 
A(5,  143,  143) 


BLOCKS 
A(4, 144: 


4    IS: 
144) 


A(3,143,143) 


CONTROL    AT 
C  +  36         0 


B*37 
Bt38 
B  +  39 
B  +  40 
Bt41 
B+42 
8*43 
B*44 


36,     FROM    BLK    3    TO 
ENT  C|155 

LOC  3 

LCD  0 

LOC  4 

LOD  0 

GTR  0 

XIT  109 

XI  T  45 

BSC  0 


BLK 


4  (PASS 

0003809B 
00020003 
00270000 
00023004 
00273000 
00213000 
0004336D 
0004332D 
002F3000 
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INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK* 


C(  141:  142,*, 147)       C(  143: 144,*,  147) 
A(3,143,143)       A(2, 142,142)       All, 141 


A( 6, 141 
141  ) 


141)        A(5 


5    IS: 
143,143) 


A(4,144,144) 
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CONTROL    AT    45,     FROM    BLK    4    TO    BLK    5    (PASS     1) 
C»45  0         IENT  JCI160  I     000380AO 

Bf46         0         IENT  111  I     00030001 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCKS    6     IS: 
CU43:  144,*,  147)       CU41:142,*,147)       4(6,141,141)       A(5, 143,143) 
A(3, 143,143)       A(2, 142,142)       Ail,  141, 1411 


A(4,144, 144) 


CONTROL  AT 

46, 

C  +  46 

0 

ENT 

B+47 

0 

LOC 

B+48 

0 

LOD 

B*49 

0 

LOC 

B  +  50 

0 

LOD 

B*51 

0 

GTR 

B  +  52 

0 

XIT 

B  +  53 

0 

XI  T 

B*54 

0 

BSC 

FROM  BLK 


5  TO  BLK  6  (PftSS 

165 

00038345 

5 

00020005 

0 

00270000 

6 

00023006 

0 

00270000 

0 

00210000 

79 

0004334F 

55 

00040037 

0 

0O2F00OO 

1) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK?  7  IS: 

C(  141: 142,*, 147)   C <  143 : 144,* ,  147 )   :( 1 43: 141,*, 1471   A(6, 141, 1411 

A<5,143,143)   A(4, 144,144)   A(3,  143,143)   A(2,142,142)   A(l, 141, 1411 


CONTROL 
C*55    0 


B+56 
B  +  57 
B+58 
B+59 
B+60 
B*61 
B+62 
B*63 
B*64 
B+65 
B+66 
B  +  67 
B+68 
B+69 
B  +  70 
B*71 
B+72 
B+73 
B*74 
B+75 
B+76 
B+77 
B+78 


AT 


55,  FROM 

ENT 

LOC 

LOC 

LOD 

INT 

ADD 

STO 

DEL 

LOC 

LOC 

LOD 

INT 

ADD 

STO 

DEL 

LOC 

LOC 

LOD 

INT 

ADD 

STO 

DEL 

XIT 

BPS 


BLK  6  TO  BLK 
170 
2 
2 
0 
5 
0 
0 
0 
6 
6 
0 
5 
0 
0 
0 
4 
4 
0 
5 
0 
0 
0 

46 
0 


BEFORE  THE  MEET  OPERATION: 


7  (P4 

00038 
00020 
00020 
00270 
00053 
00103 
00283 
00243 
00023 
00023 
00270 
00053 
00103 
00280 
00243 
00020 
00023 
00270 
00050 
00103 
00283 
00240 
00040 
002E3 


SS  1) 

04A 
002 
002 
300 
005 
000 
000 
000 
006 
306 
300 
305 
300 
300 
000 
004 
004 
000 
005 

A  r\  rt 
%j  \J  \j 

000 
300 
02E 
000 


OUTPUT  POOL  FROM 
C(  143:141,*, 147) 
C(  141:145,*, 153) 


BLOCK* 

C(  143 


7    IS: 

144.* 


C( 144: 145,* 


A(5,143,143)       A(3, 143,1431       AM, 141, 1411 


147)      C( 141:142,*, 147)       C 1 142: 145,*, 151 1 

155)       A(4,155,155)        4(6,153,153)        A( 2, 151 , 151 ) 


CURRENT     POOL    FOR    BLOCK*    6     IS: 

C(  143:144,*, 147)       C (  141 : 142,*, 147)       4(6,141,141) 

A(3,143,143)       A(2, 142, 1421       A(l,141,141) 

AFTER    PERFORMING    THE    MEET    OPERATION: 


A(5, 143, 1431        A(4. 144, 1441 


NEW    CURRENT 
A(6,*,156) 


POOL/INPUT     POOL    FOR 
A(5, 143, 1431        A(4,*, 


BLOCKS    6    IS: 
157)       4(3,143,143) 


4(2,*, 153)       4(1,141,141) 


CONTROL    AT    46,     FROM     BLK    7    TO    BLK    6    (P4SS    2) 


C*46 
B*47 
B+48 
B+49 
B*50 
B*51 
Bf52 
B4-53 
B  +  54 


ENT 
LOC 
LOD 
LOC 
LOD 
GTR 
XIT 
XIT 
BSC 


165 

00038345 

5 

00023305 

0 

00273300 

6 

00020006 

0 

00270000 

1004 

002183EC 

79 

0004304F 

55 

00040037 

0 

OO2F00OO 

CONSTANT  PR0PAG4TI0N 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       3L0CK8    8 


C(  143: 156,*, 159)       4(6,*, 156) 
A(2,*,158)       A(l,141,141) 


4(5,143,143)       A(4,*,157) 


IS: 

A(3, 143,1431 


BEFORE    THE   MEET    OPERATION: 


OUTPUT  POOL 
C(  143: 156,* 
A(2,*,158> 


FROM    BLOCKS    6    IS: 
159)       A(6,*,156) 
A(  1,141,  1411 


A(5, 143, 1431       A(4,*,1571       A(3, 143,143) 
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CURRENT  POOL  FOR  BLOCK*  7  IS: 

C(  141:  142,*,  147)-     C(  143:144,*,  147)       :( 1 43  :  14  1 , *, 147)       A<6,141,141) 

A(5,143,143)       A(4, 144,144)       A(3,143,143)       A(2,142,142)       A(l,14l,141) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW   CURRENT    POOL/INPUT    POOL    FOR      BLOC<«    7    IS: 

A<6,*,160)       A(5,143,143)       A(4,*,16l)       4(3,143,143)       A(2,*,162)        A(l,141,141) 


CONTROL  AT 

55, 

C»55 

0 

ENT 

B  +  56 

0 

LOC 

B*57 

0 

LOC 

B+58 

0 

LOO 

B+59 

0 

INT 

B+60 

0 

ADO 

B*61 

0 

STO 

B*62 

0 

DEL 

B*63 

0 

LOC 

B+64 

0 

LOC 

B+65 

0 

LOD 

B*66 

0 

INT 

B*6  7 

0 

ADO 

B+68 

0 

STO 

B+69 

0 

DEL 

B  +  70 

0 

LOC 

B+71 

0 

LOC 

B+72 

0 

LOD 

B  +  73 

0 

INT 

B*74 

0 

ADD 

B+75 

0 

STO 

B+76 

0 

DEL 

B+77 

0 

XIT 

B+78 

0 

BRS 

FROM    BLK    6 


TO  BLK  7  (PASS  2) 

170 

000380AA 

2 

00020002 

2 

00020002 

0 

00270000 

5 

00050005 

994 

001083E2 

0 

00280000 

0 

00240000 

6 

00020006 

6 

00020006 

0 

00270000 

5 

00050005 

990 

O010830E 

0 

00280000 

0 

002AOOOO 

4 

00020004 

4 

00020004  . 

0 

00270000 

5 

00050005 

986 

001083DA 

0 

00290000 

0 

002AOOOO 

46 

0004002E 

0 

002E0000 

CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


BEFORE  THE  MEET  OPERATION: 


OUTPUT  POOL  FROM  BLOCKS  7  IS: 

C(  162: 145,*, 163  )   C (  160:  145, *,  164)   : ( 1 61 : 145, * , 165) 

A(2,*,163)   A(5,14?,143)   A(3, 143,143)   A(l,141,141) 


A(4,*,1S5)   A(6,*,164) 


CURRENT    POOL    FOR    BLOCK?    t     IS: 

A(6,*,156)       A(5,143,143)       A(4,*,157)       4(3,143,143)       A{2,*,158)       All, 141, 141) 

AFTER    PERFORMING    THE    MEET    OPER*ATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME    AS    OLD    CURRENT     POOL 


CONTROL  AT 

79, 

C*79 

0 

ENT 

B+80 

0 

LOC 

B+81 

0 

LOC 

B  +  82 

0 

LOD 

B+83 

0 

INT 

B+84 

0 

ADD 

B  +  85 

0 

STO 

B  +  86 

0 

DEL 

B+87 

0 

LOC 

B  +  88 

0 

LOC 

B  +  89 

0 

LOD 

B*90 

0 

INT 

B«-91 

0 

ADD 

B+92 

0 

STO 

B*93 

0 

DEL 

B*94 

0 

LOC 

B  +  95 

0 

LOC 

B+96 

0 

LOD 

B*97 

0 

STO 

B«-98 

0 

DEL 

Bt99 

0 

LOC 

B  +  100 

0 

LOC 

BU01 

0 

LOD 

B  +  102 

0 

LOC 

B  +  103 

0 

LOD 

B  +  104 

0 

MUL 

B  +  105 

0 

STO 

B4-106 

0 

DEL 

BH07 

0 

XIT 

BH08 

0 

BRS 

FROM    BLK    6 


TO  BLK  8  (PASS  1) 

175 

000390AF 

2 

00020002 

2 

00020002 

0 

00270000 

5 

00050005 

0 

00100000 

0 

00280000 

0 

OO2A00OO 

4 

00020004 

4 

00020004 

0 

00270000 

5 

00050005 

0 

00100000 

0 

00280000 

0 

002AOOOO 

5 

00020005 

2 

00020002 

0 

00270000 

0 

00280000 

0 

00240000 

8 

00020008 

5 

00020005 

0 

00270000 

3 

00020003 

0 

00270000 

0 

oonoooo 

0 

00280000 

0 

OO2A000O 

36 

00040024 

0 

002E3000 

BEFORE    THE    MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCKS    8    IS: 

C(  143: 156,*, 159  )  C (  158  :  145 , *,  169)  C ( 1 57  :  145 , *, 1 70 ) 
C(  143: 156,*, 171)  A(8,*,17li  A(5,*,169)  A(4,*,170) 
A(3tl43,143)       A(l,141,14l) 


C(  169Ht3t*f  1711 
M2«*il69)       A(6,*,156t 
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CURRENT    POOL    FOR    BLOCKS    4 
C(  141:142,  *t  147) 


IS: 
4(6, 141, 141) 
A(1,141,141) 


A(2,142,142) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW   CURRENT    POOL/INPUT    POOL    FOR       BLOCKS    4    IS: 
A(6»*,172)       A(5,*,173)        A(4,*,174)        A(3,143,143) 


A(5,143,143)       A(4,144,144)       A(3,143,143) 


A(2,*,175)       A(l,141,141) 


CONTROL  AT 

36, 

C+36 

0    I 

ENT 

B*37 

0 

LOC 

£♦38 

0 

LOO 

B*39 

0 

LOC 

B+40 

0 

LOD 

B+41 

0 

GTR 

B*42 

0 

XIT 

B+43 

0 

XIT 

B+44 

0 

BSC 

FROM    BLK     8 


TO  8LK  4  (PASS  2) 

155 

00038098 

3 

00020003 

0 

00270000 

4 

00020004 

0 

00270000 

1016 

002133F8 

109 

OOO4006D 

45 

OOO40O2D 

0 

002F0000 

CONSTANT     PROPAGATION 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCKS    9     IS: 

CU43:  174,*, 176)       A(6,*.l72)        A(5,*,173)        A(4,*,174)        A(3,143,143) 

A(2,*,175)       Ad, 141, 141) 


BEFORE    THE   MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCK*    4    IS: 
C<  143:174,*, 176)       A<6,*,172) 
A(2,*,175)       A(1,141,141) 


A(5,*,173)       A(4,*,174)       A(3,143,143) 


CURRENT    POOL    FOR    BLOCKS    5    IS: 

C(14i:142,*,147)       C (  143 : 144, *, 147)       A(6,141,141) 

A(3,143,143)       4(2,142,142)       All, 141, 1^1) 

AFTER    PERFORMING    THE    MEET    OPERATION: 


A(5,143,143)   A(4,144,144) 


NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOCKS  5  IS: 

A(6,*,177)   A(5,*,178)   A(4.*,179)   A(3,143,143)   A(2,*,180)   A(l, 141,141) 


CONTROL    AT    45,     FROM    BLK    4    TO    BLK    5    (P4SS     2) 


C*45 
B+46 


ENT 
ENT 


ICI160 
|C|165 


000380A0 
000380A5 


BEFORE    THE   MEET    OPERATION: 


OUTPUT    POOL    FROM    BLOCKS    5    IS: 
A(6,*,177)       A(5,*,178)       A(4,*,179) 


A(3,143,143)       A(2,*,180)       A(l, 141,141) 


CURRENT    POOL    FOR    BLOCKS    6    IS: 

A(6,*,166)       A(5,143,143)       A(4,*,167)       4(3,143,143)       A(2,*,168)        A(l,141,141) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCKS    6    IS: 

A(6,*,181)       A(5,*,182)       A(4,*,183)       A(3,143,143)        A(2,*,184)       Ad, 141, 141) 


CONTf 

*0L  AT 

46,  FROM  BLK  5  TO  BLK  6  (PASS  3 

C*46 

0 

ENT 

C 

165 

000380A5 

B+47 

0 

LOC 

5 

00020005 

B+48 

0 

LOD 

0 

00270000 

B<-49 

0 

LOC 

6 

00020006 

B+50 

0 

LOD 

0 

00270000 

Bf51 

0 

GTR 

C 

1004 

002183EC 

Bt52 

0 

XIT 

79 

0004004F 

B+53 

0 

XIT 

55 

00040037 

B+54 

0 

3SC 

0 

O02F0OOO 

BEFORE    THE   MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCKS    6    IS: 

C(  182: 181,*, 185)       4(6,*, 181)       A(5,*,182) 

A(2,*, 184)       A(  1,141, 141) 


A(4,*,183)       A(3,143,143) 


CURRENT  POOL  FOR  BLOCKS  8  IS 
C(  143:156,*, 159)  A(6,*,156) 
A(2,*,158)       Ad, 141, 141) 


A(5,143,143)       A(4,*,157)       A(3,143,143) 
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AFTER    PERFORMING    THE    MEET    OPERATION: 


NEW 
A(6i 


CURRENT 
*,186) 


POOL/INPUT 
A<5,*,  187) 


POOL    FOR       BLOC<* 
A(4,*,188)       A(3 


8    IS: 
,143,143) 


A(2,*,189)        A(1,141,141) 


BEFORE    THE   MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCK*    6    IS: 
C<  182:  181,*,  185)       A(6,*,181) 
A12,*,184)       All, 141, 141) 


A(5,*,1B2)       A(4,*,183)       A(3,143,143) 


CURRENT    POOL    FOR    BLOCK*    7    IS: 

A(6,*,160)       A15,143,143)       A(4,*,161)       A(3,143,143)       A(2,*,162)       All, 141, 141) 

AFTEP    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCK*    7    IS: 

A16,*,190)       A(5,*,19l)       A(4,*,192)       M3, 143, 143)       A(2,*,193)       All, 141, 141) 


CONTROL  AT 

C*55 

0 

B*56 

0 

B*57 

0 

B*58 

0 

B+59 

0 

B*60 

0 

£+61 

6*62 

0 

0 

B+63 

0 

B+64 

0 

B+65 

0 

B*66 

0 

B+67 

0 

B+68 

0 

B+69 

0 

B  +  70 

0 

B+71 

0 

B+72 

0 

B*73 

0 

B+74 

0 

B+75 

0 

B*76 

0 

B  +  77 

0 

B+78 

0 

FROM    BLK    6    TO    BLK 


55, 

ENT 
LOC 
LOC 
LOO 
INT 
AOD 
STO 
DEL 
LOC 
LOC 
LOD 
INT 
ADO 
STO 
DEL 
LOC 
LOC 
LOD 
INT 
ADD 
STO 
DEL 
XIT 
BRS 


BEFORE   THE   MEET    OPERATION 


170 

2 

2 

0 

5 

994 

0 

0 

6 

6 

0 

5 

990 

0 

0 

4 

4 

0 

5 

986 

0 

0 

46 

0 


7  (PA 

00038 
00020 
00023 
00270 
00050 
00108 
00280 
002AO 
00020 
00020 
00270 
00050 
00103 
00280 
002A0 
00020 
00020 
00270 
00050 
00103 
00230 
OO2A0 
00040 
002E0 


SS  3) 

OAA 
002 
002 
000 
005 
3E2 
000 
000 
006 
006 
000 
005 
30E 
000 
000 
004 
004 
000 
005 
3  '"'A 
000 
000 
02E 
000 


OUTPUT    POOL    FROM 
C(  193:145,*, 194) 


BLOCK* 
C(  190 


A(2,*,194)       A(5,*,I91) 


7    IS: 

145,*, 195)       ! 

A<  3,143, 143) 


( 192: 145,*, 196) 
A( 1,141,141) 


A(4,*,196)       A(6,*,195) 


CURRENT    POOL    FOR    BLOCK*    6    IS: 

A16,*,181)       A(5,*,182)       A(4,*,183)       A13, 143,143)       A(2,*,184)       All, 141,141) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME     AS    OLD    CURRENT    POOL 


CONTROL    AT 


C+79 

B+80 

B  +  81 

B+82 

B*83 

Bt84 

B+85 

B*86 

B+87 

8*88 

Bt89 

B+90 

B+91 

B+92 

B+93 

B+94 

B+95 

B+96 

B+97 

B+98 

B*99 

B+100 

BflOl 

6*102 

B  +  103 


79, 

ENT 
LOC 
LOC 
LOO 
INT 
ADD 
STO 
DEL 
LOC 
LOC 
LOD 
INT 
ADD 
STO 
DEL 
LOC 
LOC 
LOD 
STO 
DEL 
LOC 
LOC 
LOD 
LOC 
LOD 


FROM  BLK  6 


TO  BLK  8  (PASS  2 

175 

000330AF 

2 

00020002 

2 

00020002 

0 

00270000 

5 

00050005 

980 

001033D4 

0 

00280000 

0 

002AOOOO 

4 

00020004 

4 

00020004 

0 

00270000 

5 

00050005 

976 

O01O33DO 

0 

00280000 

0 

002A0000 

5 

00020005 

2 

00020002 

0 

00270000 

0 

00230000 

0 

002AOOOO 

8 

00020008 

5 

00020005 

0 

00270000 

3 

00020003 

0 

00270000 

113 


B*105 

B+ioe 

BM07 
B»108 


STO 
DEL 
XIT 

BRS 


Vf2 

0014«:}CC 

0 

00280000 

0 

O02A000O 

36 

00040024 

0 

002E3000 

BEFORE    THE    MEET    OPERATION: 

OUTPUT    POOL    FROM    BLCCKtf    8    IS: 

C(  189: 145,*, 201)       C(  183:  14?,*, 20  2) 

A(4,*,202)        A(2i*,201)        A(6,*,186) 


C(201:143,*,203)       A(8,*,203) 
A<3,143,143)       A( 1, 141,141) 


A(5,*,20U 


CURRENT    POOL    FOR    BLOCKS    4-    IS: 
A(6,*,172)       A(5,*,173)        A{4,*,174) 


A<3,143,143)   A(2,*,175)   All, 141, 141) 


AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 


CONTROL  AT 

109,  FROM  Bl 

rK 

4  TO  BLK  9  (PASS  1 

C  +  109 

0 

ENT 

C 

180 

0003ROB4 

BtllO 

0 

LOC 

2 

00020002 

B+lll 

0 

LOC 

2 

00020002 

B  +  112 

0 

LOD 

0 

00270000 

B  +  113 

0 

INT 

5 

00050005 

B*114 

0 

ADD 

0 

00100000 

B  +  115 

0 

STO 

0 

00280000 

B  +  116 

0 

DEL 

0 

002AOOOO 

B  +  117 

0 

LOC 

5 

00020005 

B  +  118 

0 

LOC 

3 

00020003 

B  +  119 

0 

LOD 

0 

00270000  ■ 

B  +  120 

0 

STO 

0 

00280000 

B  +  121 

0 

DEL 

0 

O02A000O 

B  +  122 

0 

LOC 

10 

0002000A 

B  +  123 

0 

LOC 

3 

00020003 

B  +  124 

0 

LOD 

0 

00270000 

B*125 

0 

LOC 

2 

00020002 

6*126 

0 

LOD 

0 

00270000 

B*127 

0 

MUL 

0 

00140000 

B  +  128 

0 

STO 

0 

00280000 

B  +  129 

0 

DEL 

0 

OO2A000O 

8*130 

0 

LOC 

9 

00020009 

B+131 

0 

LOC 

2 

00020002 

B  +  132 

0 

LOD 

0 

00270000 

B  +  133 

0 

LOC 

3 

00020003 

B  +  134 

0 

LOD 

0 

00270000 

B  +  135 

0 

Ml" 

n 

noi  A-oooo 

8  +  136 

0 

STO 

0 

00280000 

6*137 

0 

DEL 

0 

002A0000 

8*138 

0 

XIT 

26 

0004001A 

B  +  139 

0 

BRS 

0 

002E0000 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCKS  9  IS: 

C(  143: 174,*, 176)   C <  175 :  145, *, 208 ) 

A(5,143,143)   A(2,*,208)   A(6,*,172) 


( 143:208,*, 209)   A(9,*,209)   A(10,*,209) 
A(4,*,174i   A(3,143,143)   A(l,141,141) 


CURRENT    POOL    FOR    BLOCKS    2    IS: 
A(6,141,141)        A(5,143,143)       A(  4,  144,144} 
A(  1,  141,  141) 

AFTER    PERFORMING    THE    MEET    OPERATION: 


A(3,143,143)   A(2,142,142) 


NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOC<#  2  IS: 

A(6,*,210)   A(5,143,143)   A(4,*,211)   A(3,  143,143)   A(2,*,212)   All, 141, 141) 


FROM  BLK  9 


CONTROL  AT 

26, 

C*26 

0 

ENT 

8*27 

0 

LOC 

B*28 

0 

LOD 

B+29 

0 

LOC 

8*30 

0 

LOD 

8+31 

0 

GTR 

6*32 

0 

XIT 

B*33 

0 

XIT 

B*34 

0 

BSC 

TO  BLt 

C  2  (PASS  2) 

145 

00038091 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

1024 

00218400 

140 

0004008C 

35 

00040023 

0 

002FOOOO 

CONSTANT    PROPAGATION 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCKS     10    IS: 

C(  141:212,*, 213)       A(6,*,210)        A(5,143,143)       A(4,*,211)       A(3, 143,143) 

A(2,*,212)       Ad, 141,141) 


BEFORE    THE   MEET    OPERATION: 

OUTPUT     POOL    FROM    BLOCK*     2    IS: 
Cd41:212,*,213)       A<6,*,210) 
A(2,*,212)       Ad, 141, 141) 


A(5,143,143)       A(4,*,21l)       A(3,143,143) 


114- 


CURRENT  POOL  FOR  BLOCK*  3  IS: 
C< 141:142,*, 147)  AC'S, 141, 141 
A(2,142,142)       A(l,14l,141) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR      BLOC<*    3     IS: 

A(6,*,214)       A(5,143,143)       A<4,*,215)       AI3, 143,143)       A<2,*,216) 


A(5,143,143)       A(4,144,144)       A(3,143,143) 


A( 1,141,141) 


CONTROL    AT    35,    FROM    BLK    2    TO    BLK    3    (PASS    2) 
C*35         0  IENT  ICI150  I     00038096 

6*36         0         lENT  I C I  155         I     0003809B 


BEFORE    THE    MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCK*    3    IS: 
A(6,*,214)       A(5,143,143)       A<4,*,215) 


A(3, 143,143)       A(2,*,216)        A(l,141,141) 


CURRENT    POOL    FOR    BLOCKS    4    IS: 
A(6,*,204)       A(5,*,205)        A(4,*,206) 


A(3,143,143)       A(2,*,207)       All, 141, 141) 


AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL     IS    THE    SAME     AS    OLD    CURRENT     POOL 

CONTROL    AT    140,    FROM    BLK    2    TO    BLK    10    (PASS1) 
C+140      0         IENT  I C | 1 85         |     000380B9       | 

FINAL    OPTIMIZATION    RESULTS 


OPTIMIZATION    AT    135 

(143,2081 127,209) 


COMM    SUBEXP    ELIM 


****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF     OP  CODE     CNS  ADR     RAW  CODE 

OPTIMIZATION 

SET                     /ETC 

TYPE 

**#**#***********  #******4- *****«*********«:****»<****•(<***  ^<-t<-A*t<<t******* 

0     0 

ENT 

141 

0003008D 

1      0 

TOGGLE 

257 

OOOBOlOl 

2     0 

LOC 

1 

00020301 

3     0 

INT 

1 

00053001 

4     0 

STO 

0 

00233300 

5     0 

DEL 

0 

002A0000 

6     0 

LOC 

■> 

00020002 

7     0 

INT 

2 

00053002 

8     0 

STO 

0 

00283000 

9     0 

DEL 

0 

O02A300O 

10    0 

LOC 

3 

00023003 

11     0 

INT 

3 

00053003 

12     0 

STO 

0 

00283300 

13    0 

DEL 

0 

002A3300 

14    0 

LOC 

4 

00023004 

15     0 

INT 

4 

00053304 

16     0 

STO 

0 

00280000 

17     0 

DEL 

0 

002A330O 

18     0 

LOC 

5 

00023005 

19     0 

INT 

3 

00050003 

20     0 

STO 

0 

00280000 

21     0 

DEL 

0 

002A3300 

22     0 

LOC 

6 

00020006 

23     0 

INT 

1 

00053301 

24     0 

STO 

0 

00280300 

25     0 

DEL 

0 

0O2A30O0 

26     0 

ENT 

145 

00030391 

27     0 

LOC 

1 

00023001 

28     0 

LOD 

0 

00270000 

29     0 

LOC 

2 

00020002 

30     0 

LOD 

0 

00270300 

31     0 

GTR 

1024 

00210400 

32     0 

XIT 

140 

000430BC 

33     0 

XIT 

35 

00040023 

34     0 

BSC 

0 

002F3300 

35     0 

FNT 

150 

00030396 

36     0 

ENT 

155 

0003009B 

37    0 

LOC 

3 

00023303 

38     0 

LOD 

0 

00270000 

39     0 

LOC 

4 

00020004 

40     0 

LOD 

9-.. 

00270000 

115 


u 

l>  f  K 

0 

XIT 

0 

XIT 

0 

BSC 

0 

ENT 

0 

ENT 

0 

LOG 

0 

LOO 

0 

LOC 

0 

LOO 

0 

GTR 

0 

XIT 

0 

XIT 

0 

BSC 

0 

ENT 

0 

LOC 

0 

LOC 

0 

LOO 

0 

INT 

0 

ADO 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOO 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOO 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

XIT 

0 

BRS 

0 

ENT 

0 

LOC 

0 

LOC 

0 

LOD 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOD 

0 

MUL 

0 

STO 

0 

DEL 

0 

XIT 

0 

BRS 

0 

ENT 

0 

LOC 

0 

LOC 

0 

LOD 

0 

INT 

0 

ADD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

STO 

0 

DEL 

0 

LOC 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOO 

0 

MUL 

0 

STO 

lOlb 

uu^i ujra 

109 

0004336D 

45 

00043320 

0 

002F3300 

160 

00O333A0 

165 

000333A5 

5 

00023005 

0 

00273000 

6 

00020306 

0 

00273000 

1004 

002133EC 

79 

0004004F 

55 

00043337 

0 

002F3300 

170 

000333AA 

2 

00023302 

2 

00023002 

0 

00273000 

5 

00053305 

994 

001033E2 

0 

00280300 

0 

002A3000 

6 

00023306 

6 

00023306 

0 

00273000 

5 

00053005 

990 

0010030E 

0 

00283000 

0 

002A3300 

4 

00023304 

4 

00020004 

0 

00270000 

5 

00053305 
0O1033DA 

986 

0 

00280000 

0 

002A3300 

46 

0004332E 

0 

002EOOOO 

175 

000300AF 

2 

00023302 

2 

00023302 

0 

00273300 

5 

00053005 

980 

00103304 

0G2C3330 

0 

002A0300 

4 

L  00020304 

4 

00023304 

0 

00270000 

5 

00053305 

976 

00103330 

0 

00283300 

0 

002A3300 

5 

00023305 

2 

00023302 

0 

00270300 

0 

00283000 

0 

002A3300 

8 

00020008 

5 

00020005 

0 

00270000 

3 

00020303 

0 

00273000 

972 

001433CC 

0 

00280000 

0 

0O2A330O 

36 

00043324 

0 

002E3000 

180 

000333B4 

2 

00023302 

2 

C0020002 

0 

00273000 

5 

00050305 

966 

001033C6 

0 

00280000 

0 

002A3300 

5 

00023305 

3 

00020003 

0 

00270300 

0 

00280000 

0 

OO2A00O0 

10 

0002300A 

3 

00023003 

0 

00273300 

2 

00020002 

0 

00270000 

962 

001403C2 

0 

00280300 

116 


129 

0    1 

DtL 

LOC 

130 

0 

131 

0 

LOC 

132 

0 

LOD 

133 

0 

LOC 

134 

0 

LOO 

135 

0 

MUL 

136 

0 

STO 

137 

0 

DEL 

138 

0 

XIT 

139 

0 

BRS 

HO 

0 

ENT 

0 

[  OUZAUOOO 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

958 

001483BE 

0 

00230000 

0 

O02A00O0 

26 

0004001A 

0 

OO2E000O 

185 

00030039 

COMM    SJBEXP   ELM 


**#******************************<:*****<'«'*******#<:  ************  ******** 


FINAL    OPTIMIZATION    POOL    FOR    EACH    BLOCK     IS: 


FINAL    POCL.    FOR       BLOCK*    1     IS: 
(NULL) 


FINAL    POCL    FOR      BLOCK*    2    IS: 

A(6,*,210)       A(5,143,143)       A(4,*,211)       4(3,143,143)       A<2,*,212)       A(l, 141, 1411 

FINAL    POCL    FOR       BLOCK*    3     IS: 

A16,*,214)       A(5,143,143)       A14,*,215)       A(3, 143,143)       A(2,*,216)       All, 141,141) 

FINAL    POOL    FOR      BLOCK*    4    IS: 

A16,*,217)   A(5,*»2181   A(4,*,219)   A(3,143,143)   A(2,*,220)   All, 141, 141) 

FINAL  POOL  FOR   BLOCK*  5  IS:  ... 

A(6,*,177)   A15,*,1781   A(4,*,179)   A13,143,143)   A(2,*,180)   All, 141, 141) 

FINAL  POCL  FOR   BLOCK*  6  IS:  .,,.,,. 

A(6t*,197)   A15,*,198J   A(4,*,199)   A(3,143,143)   A(2,*,200)   All, 141, 141) 

FINAL  POCL  FOR   BLOCK*  7  IS:  ,    ,„    ,M1   .,,  ,,,  ,_,, 

A<6,*,190)   A15,*,191)   A(4,*,192)   A(3,143,143)   A12,*,193)   All, 141, 141) 

FINAL  POCL  FOR   BLOCK*  8  IS:  .  „  ,        ...  .... 

Al6,*,ie6)       A(5,*,187)       A(4,*,188)       1(3. 143, 143)       A12,*,189)       All, 141, 141) 

FINAL    POCL    FOR       BLOCK*    9    IS:  ,  .„,,        .  . ,    .,_     ,,_, 

CI  143:174,*, 176)       A(6,*.172)       A(5,*,173)       A(4,*,174)       A13.143.143) 
A(2,*,175)       All, 141, 141) 

FINAL    POCL    FOR       BLOCK*     10    IS:  .._    ...    ,,,, 

C(141:212,*,213)       A16,*,210J       A(5,143,143)       A(4,*,211)       A13,143,143) 
A12,*,212)       All, 141, 141) 


11? 


BASIC    BLOCK    #1 
BEGINNING 
BLOCK    TRAV 

0  REFERENC 
BASIC   BLOCK    *2 

BEGINNING 
BLOCK    TRAV 

1  REFERENC 

1 
BASIC  BLOCK  U3 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 
2 
BASIC  BLOCK  #4 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 
3 
BASIC  BLOCK.  #5 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 
4 
BASIC  BLOCK  #6 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 
5 
BASIC  BLOCK  #7 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 
6 
BASIC  BLOCK  #8 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 
6 
BASIC  BtOCK  #9 
BEGINNING 
BLOCK  TRAV 
1  RfchERENC 
4 
BASIC  BLOCK  #10 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 
2 

3L0CK  SUMMARY  DATA: 


AT  0,  ENDING  AT  26 
ERSED  1  TIMES 
ES: 

AT  26,  ENDING  AT  3* 

ERSED  2  TIMES 

ES: 


AT  35,  ENDING  AT  36 

ERSEO  2  TIMES 

ES: 


AT  36,  ENDING  AT  44 

ERSED  2  TIMES 

ES: 


AT  45,  ENDING  AT  ^6 

ERSED  2  TIMES 

ES: 


AT  46,  ENDING  AT  54 

EPSED  3  TIMES 

ES: 


AT  55,  ENDING  AT  78 

ERSEO  3  TIMES 

ES: 


AT  79,  ENDING  AT  108 

ERSED  2  TIMES 

ES: 


AT  109,  ENDING  AT  139 

ERSED  1  TIMES 

ES: 


AT  140,  ENDING  AT  140 

ERSED  1  TIMES 

ES: 


3L0CK    NUMBER 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


NUMBER  OF  PASSES 

1 
2 
■  2 
2 
2 
3 
3 
2 
1 
1 


QTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  19 
•SING  THE  STEEPEST  DESCENT  (MINIMUM  CURRENT  POOL) 

IME  FOR  THE  OPTIMIZATION  WAS  0.212  SECONDS. 


BLOCK  SELECTION  ALGORITHM. 


***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 


IIP 


CAPO 

$EXECU 
3 
4 
5 
6 
7 

e 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 
CODE 
CONSTA 
2  RECO 
END  CF 


BL 

SYL  1 

1  o 

0  I 

UTE 

0 

0 

0 

0 

0 

0 

0 

1 

1 

10 

1 

19 

1 

19 

2 

34 

2 

37 

2 

53 

2 

58 

2 

74 

2 

79 

2 

104 

2 

111 

2 

121 

2 

123 

2 

140 

2 

149 

1 

152 

1 

152 

FILf 

E  COPIE 

COMMENT 


TEST    PROGRAM    #    2 


COMMENT  SAMP 
THIS 
BASI 
CARD 
ARE 
THE 
LOCAL    X 

(X,Y, I): 

X    NEU    1 


NT    TABL 

RDS    WRI 

COMPIL 


BEGIN 
READ 
WHILE 
BEGIN 
IF    X 
ELSE 
IF    X 
ELSE 
IF    X 
ELSE 
IF    X 
TEMP 
HUNDS 
INT    : 
TENS 
READ 
END; 
END 
EOF 
D     (15 
E    CGPIE 
TTEN    IN 
ATION    F 


LE    OF    THE    STUDENT     PROGRAM    NUMB-ER    ONE     (#1) 
PROGRAM    READS     INPUT    CARDS    AND    THEN    TRANSLATES    THEM    TO 

C    MATHEMATICAL    OPERATIONS.        THE    FIRST     NUMBER    ON    AN    INPUT 
INDICATES    THE    OPERATION    DESIRED    AND    THE    NEXT    TWO    NUMBEPS 

THE    OPERAND     (X    AND    Y).        WHEN    A    CARD     IS    READ    IN    WHICH     THE 

MATHEMATICAL    OPERATOR    CODE     IS    A    10    THE    PROGRAM    TERMINATES. 

,Y,Z, A, TEMP, HUNDS, INT, TENS; 

0    00 


ECL    2    THEN    A    :=    100    *    (Y    ♦    Z> 

EQL    3    THEN    A     :=    100    *    Y    *    Z 

EQL    7    THEN    A    :=    (100    *    Y)    /    Z 

EQL    4    THEN    A    :=    100    *    (Y    -    Z); 
:=    A    /    10; 

:=    A    -    TEMP    *    10; 
=   a  /    loo; 

:=    A    /     10    -    INT    *    10; 

(X,   y,    Z); 


2    WORDS) 
D     (12    WORDS) 
TO    FILE    1 
EBRUARY    12, 


1975.       CLOCK    TIME    =    20:53:7.88. 


27   CARDS    WERE    READ. 

NO   ERRORS    WERE    DETECTED. 


C, 


119 


♦♦♦CODE    SYNTHESIS    FILTER*** 

BLOCK    SELECTION    METHOD   WILL    8E    LAST-  IN-F IRST-OUT 

♦♦*C    OMPLETE         TABLE         DUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


♦**T    ABLE 


DUM    P***    AT    LOCATION 


CONSTANTS    <1>      <2>    .  <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <ll>    <12>   <13>    <14> 


CONSYM 
CONTYPE 
CONVAL 
CONINT 


10 

2 

100 

3 

7 

INT 

INT 

INT 

INT 

INT 

153 

154 

155 

156 

157 

10 

2 

100 

3 

7 

4 

INT 
158 
4 


ADDR  TABL  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 

(EMPTY) 

; 
VALUE  STACK  (TOP  AT  127) 


CONT  STK   <1>   <2>   <3> 

<4>   <5>   <6>   <7> 

BLOCKS    10 

ENTRY     |0 

EXEC  STAC  <1>   <2>   <3>   <4>   <5>   <6>   <7> 

(EMPTY) 

♦*♦*   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF 

OP  CODc     CNS  ADR 

RA  W  CODE 

SET 

/ETC 

*****$$********#********£*****#**«$*********** 

0     0 

ENT 

C 

153 

00038099 

1      0 

TOGGLE 

257 

000B0101 

2      0 

LOC 

1 

00020001 

3      0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6      0 

INT 

0 

00050000 

7      0 

STD 

0 

00290000 

8      0 

LOC 

3 

00020003 

9      0 

INT 

0 

00050000 

10     0 

STO 

0 

00290000 

11     0 

ENT 

1 

00030001 

12     0 

LOC 

1 

00020001 

13     0 

LOD 

0 

00270000 

14     0 

INT 

1 

00050001 

15     0 

NEQ 

0 

0D1F0000 

16     0 

XIT 

152 

00040098 

17     0 

XIT 

19 

00040013 

18     0 

BSC 

0 

002FOOOO 

19     0 

ENT 

1 

00030001 

20     0 

LOC 

1 

00020001 

21     0 

LOD 

0 

00270000 

22     0 

INT 

2 

00050002 

23     0 

EQL 

0 

001E0000 

24     0 

XIT 

40 

00040028 

25     0 

XIT 

27 

0004001B 

26     0 

BSC 

0 

002FOOOO 

27     0 

ENT 

1 

00030001 

28     0 

LOC 

4 

00020004 

29     0 

INT 

3 

00050003 

30     0 

LOC 

2 

00020002 

31     0 

LOD 

0 

00270000 

32     0 

LOC 

3 

00020003 

33     0 

LOD 

0 

00270000 

34     0 

ADD 

0 

00100000 

35     0 

MUL 

0 

00140000 

36     0 

STO 

0 

00280000 

37     0 

DEL 

0 

002A0000 

38     0 

XIT 

104 

00040068 

39     0 

BRS 

0 

002E0000 

40     0 

ENT 

1 

00030001 

41     0 

LOC 

1 

00020001 

<8>   <9>   <10>  <11>  <12>  <13>  <14> 


<8>   <9>   <10>  <ll>  <12>  <13>  <14> 


OPTIMIZATION 
TYPE 
**#***#****x<  ************* 


120 


41 

0 

LUU 

43 

0 

INT 

44 

0 

EQL 

45 

0 

xi  r 

46 

0 

XIT 

47 

0 

BSC 

48 

0 

ENT 

49 

0 

LOC 

50 

0 

INT 

51 

0 

LOC 

52 

0 

LOD 

53 

0 

MUL 

54 

0 

LOC 

55 

0 

LOD 

56 

0 

MUL 

57 

0 

STO 

58 

0 

DEL 

59 

0 

XIT 

60 

0 

DRS 

61 

0 

ENT 

62 

0 

LOC 

63 

0 

LOD 

64 

0 

INT 

65 

0 

EQL 

66 

0 

XIT 

67 

0 

XIT 

68 

0 

BSC 

69 

0 

FNT 

70 

0 

LOC 

71 

0 

INT 

72 

0 

LOC 

73 

0 

LOD 

74 

0 

MUL 

75 

0 

LOC 

76 

0 

LOD 

77 

0 

DIV 

78 

0 

STO 

79 

0 

DEL 

80 

0 

XIT 

81 

0 

BRS 

82 

0 

ENT 

83 

0 

LOC 

84 

0 

LOD 

85 

0 

INT 

86 

0 

EQL 

87 

0 

XIT 

88 

0 

XIT 

89 

0 

BSC 

90 

0 

ENT 

91 

0 

LOC 

92 

0 

INT 

93 

0 

LOC 

94 

0 

LOD 

95 

0 

LOC 

96 

0 

LOD 

97 

0 

SUB 

98 

0 

MUL 

99 

0 

STO 

100 

0 

DEL 

101 

0 

ENT 

102 

0 

ENT 

103 

0 

ENT 

104 

0 

ENT 

105 

0 

LOC 

106 

0 

LOC 

107 

0 

LOD 

108 

0 

INT 

109 

0 

DIV 

110 

0 

STO 

111 

0 

DEL 

112 

0 

LOC 

113 

0 

LOC 

114 

0 

LOD 

115 

0 

LOC 

116 

0 

LOO 

117 

0 

INT 

118 

0 

MUL 

119 

0 

SUB 

120 

0 

STO 

121 

0 

DEL 

122 

0 

LOC 

123 

0 

LOC 

124 

0 

LOU 

125 

0 

INT 

126 

0 

DIV 

127 

0 

STO 

128 

0 

OEL 

129 

0 

LOC 

0 

out fUUUU 

4 

00050004 

0 

001E0000 

61 

00040030 

48 

00040030 

0 

0O2F0000 

1 

00030001 

4 

00020004 

3 

00050003 

2 

00020002 

0 

00270000 

0 

00140000 

3 

00023003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

103 

00040067 

0 

002E0000 

1 

00030001 

1 

00020001 

0 

002700UO 

5 

00050005 

0 

001EOOOO 

82 

00040052 

69 

00040045 

0 

002FOOOO 

1 

00030001 

4 

00020004 

3 

00050003 

2 

00020002 

0 

00270000 

0 

00140000 

3 

00023003 

0 

00270000 

0 

00160000 

0 

00280000 

0 

002A0000 

102 

00040066 

0 

002E0000 

1 

00030001 

1 

00020001 

0 

00270000 

6 

G  0  0  >  ^  u  ^6 

0 

001E0000 

101 

00040065 

90 

0004005A 

0 

O02F0OOO 

1 

00030001 

4 

00020004 

3 

00050003 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00120000 

0 

00140000 

0 

00280000 

0 

' 002AOOOO 

1 

00030001 

I 

00030001 

1 

00033001 

1 

00033001 

5 

00020005 

4 

00020004 

0 

00270000 

1 

00053001 

0 

00160000 

0 

00280000 

0 

002AOOOO 

6 

00020006 

4 

00020004 

0 

00270000 

5 

00020005 

0 

00270000 

1 

00050001 

0 

00140000 

0 

00120000 

0 

00283000 

0 

002AOOOO 

7 

00020007 

4 

00020004 

0 

00270000 

3 

00050003 

0 

00160000 

0 

00280000 

0 

002A0000 

8 

00020008 

121 


1JU 

U 

LUL 

131 

0 

LOO 

132 

0 

INT 

133 

0 

OIV 

134 

0 

LOC 

135 

0 

LOO 

136 

0 

INT 

137 

0 

MUL 

13b 

0 

SUB 

139 

0 

STO 

140 

0 

DEL 

141 

0 

LOC 

142 

0 

INT 

143 

0 

STO 

144 

0 

LOC 

145 

0 

INT 

146 

0 

STD 

147 

0 

LOC 

148 

0 

INT 

149 

0 

STD 

150 

0 

XI  T 

151 

0 

BRS 

152 

0 

ENT 

4 

uuu<:uuu4 

0 

00270000 

1 

00050001 

0 

00160000 

7 

00020007 

0 

00270000 

1 

00050001 

0 

00140000 

0 

00120000 

0 

002B00O0 

0 

OO2A0000 

1 

00020001 

0 

00050000 

0 

00290000 

2 

00020002 

0 

00050000 

0 

00290000 

3 

00020003 

0 

00050000 

0 

00290000 

11 

0004000B 

0 

O02E0OOO 

1 

00030001 

W #**#*****%*£*******$**%***#*****#***#******************* ************ 


BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  AT 
BLOCK  TRAVERSED  0  TIMES 
0  REFERENCES: 


***E 

N  D    OF 

B  +  2 

0 

LOC 

B+3 

0 

INT 

B+4 

0 

STO 

B+5 

0 

LOC 

B+6 

0 

INT 

B  +  7 

0 

STD 

B+8 

0 

LOC 

B+9 

0 

INT 

B  +  10 

0 

STD 

B«-ll 

0 

ENT 

COMPLETE 


TABLE 

00020001 
00050000 
00290000 
00020002 
00050000 
00290000 
00020003 
00050000 
00290000 
00030001 


INITIAL  CURREr 
A<3,*,161) 


OPTIMIZED  POOL  TO  BE  USED 
A(2,*,160)   A(l,*,159) 


D  U  M  ?*** 


FOR   BLOCKS  2  IS; 


CONTROL  AT 


C  +  ll 
B+12 
B  +  13 
B  +  14 
B  +  15 
B  +  16 
B  +  17 
B  +  18 


lit 
ENT 
LOC 
LOD 
INT 
NEQ 
XIT 
XIT 
BSC 


FROM  BLK  1 


TO  BLK  2  (PASS  1) 

157 

0003809D 

1 

00020001 

0 

00270000 

1 

00050001 

0 

001F0000 

152 

00040098 

19 

00040013 

0 

OO2F0OOO 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  3  IS: 
C( 159: 153,*, 162)   A(3,*,lbl)   A(2,*,160)   All,*, 159) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED 
C( 159: 153,*, 162)   A(3,*,161)   A(2,*,160) 

FROM  SLK  2  TO  BLK  4  (PASS 

C  167  000380A7 

1  00020001 
0  00270000 

2  00050002 
0  OOIEOOOO 
40  00040028 
27  0004001B 
0  002F0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C<  159:153,  ",162)   C  (  159  :  154,*  ,  163)   AU,*,1611 


CONTROL  AT 

19, 

C  +  19 

0 

ENT 

B+20 

0 

LOC 

B*21 

0 

LOD 

B+22 

0 

INT 

B  +  23 

0 

EQL 

B*24 

0 

XIT 

B+25 

0 

XIT 

B+26 

0 

BSC 

FOR   BLOCKS 
Al  1,*,159) 

1) 


4  IS: 


BLOCKS 
A(  2,* 


5  IS: 
,  160) 


A(  1,*,  159) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C( 159: 153,*, 162)   C(  159: 154, *,  163)   A(3,*,l6l) 


BLOCKS  6  IS: 
A( 2,*, 160) 


A(l,*,159) 


CONTROL  AT 

27, 

C+27    0 

ENT 

B+28    0 

LOC 

B+29    0 

INT 

B+30    0 

LOC 

B+31    0 

LOD 

B»32    0 

LCC 

FROM  BLK  4  TO 
177 
4 
3 
2 
0 
3 


BLK 


6  (PASS  1) 

000300'Jl 
00020004 
00050003 
00020002 
00270000 
00020003 


122 


V+ll 

U 

LUU 

O  '"" 

B+34 

0 

ADO 

0 

B*35 

0 

MUL 

0 

B  +  36 

0 

STO 

0 

B*37 

0 

DEL 

0 

B*38 

0 

XIT 

104 

B+39 

0 

BRS 

0 

UU<M  JUUU 
00100000 
00140000 
00260000 
002AOOOO 
00040068 
O02E00OO 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  7  IS: 

C<  159:154,*, 163)   C<  159  :  153,* ,  162)   C( 160: 16 1 ,*, 164)   C (  155 : 164  ,*,  165) 

A{4,*,165)       A(3»*,161)       A(2,*,160)       A(1,*,15S>) 


CONTROL  AT 

104,  FROM  BLK 

6  TO  BLK  7  (PASS 

C  +  104 

0 

ENT 

C 

182 

000380B6 

B  +  105 

0 

LOC 

5 

00020005 

6*106 

0 

LOC 

4 

00020004 

B  +  107 

0 

LOD 

0 

00270000 

B  +  108 

0 

INT 

1 

00050001 

B*109 

0 

DIV 

0 

00160000 

B  +  110 

0 

STO 

0 

00280000 

B  +  lll 

0 

DEL 

0 

OO2A000O 

6  +  112 

0 

LOC 

6 

00020006 

B*113 

0 

LOC 

4 

00020004 

B  +  114 

0 

LCD 

0 

00270000 

B  +  115 

0 

LOC 

5 

00020005 

B  +  116 

0 

LOD 

0 

00270000 

6  +  117 

0 

INT 

1 

00050001 

8  +  118 

0 

MUL 

0 

00140000 

B  +  119 

0 

SUB 

0 

00120000 

B+120 

0 

STO 

0 

O02S0000 

6*121 

0 

DEL 

0 

00260000 

B  +  122 

0 

LOC 

7 

00020007 

8*123 

0 

LOC 

4 

00020004 

B  +  124 

0 

LCD 

0 

00270000 

B  +  125 

0 

INT 

3 

00050003 

B  +  126 

0 

DIV 

0 

00160000 

B*127 

0 

STO 

0 

00280000 

B  +  128 

0 

DEL 

0 

0O2AO0OO 

B*129 

0 

LOC 

8 

00020008 

B  +  130 

0 

LOC 

4 

00020004 

B  +  131 

0 

LOD 

0 

00270000 

6  +  132 

0 

INT 

1 

00050001 

B+133 

0 

DIV 

0 

00160000 

B*134 

0 

LOC 

7 

OO^^riny 

6*135 

0 

LOD 

0 

0027066o 

B*136 

0 

INT 

1 

00050001 

B  +  137 

0 

MUL 

0 

00140000 

8*138 

0 

SUB 

0 

00120000 

8+139 

0 

STO 

0 

00280000 

B  +  140 

0 

DEL 

0 

002A0000 

B  +  141 

0 

LOC 

1 

00020001 

B  +  142 

0 

INT 

0 

00050000 

B*143 

0 

STD 

0 

00290000 

B  +  144 

0 

LOC 

2 

00020002 

B*145 

0 

INT 

0 

00050000 

B  +  146 

0 

STD 

0 

00290000 

B+147 

0 

LCC 

3 

00020003 

B  +  148 

0 

INT 

0 

00050000 

B+149 

0 

STD 

0 

00290000 

B  +  150 

0 

XIT 

11 

00040003 

B  +  151 

0 

BRS 

0 

002E0000 

BEFORE 

THE  1 

'.EET  OPERATION: 

OUTPUT  POOL 

.  FROM  BLOCK*  7  IS: 

C(  155 

:  1 6  4 ,  =■ 

,163)   C(  160:161,*, It 

>4)   C(159 

C(  159 

:  153,* 

',  163)   C(  165  :153,*,  It 

.6)   CU66 

C(  165 

:  167,* 

',  168)   C(  165:  155,*,  U 

>9)   C( 169 

C(  166 

:170,* 

:,171)   A(3,*,174)   A( 

2,*,  173) 

A(6,* 

r  168) 

A( 5,*, 166) 

/ 

U4,*,  U 

>5) 

153,*, 162) 
153,*, 167) 
153,*,  170) 
A(  1,*,172) 


CU59: 
C(155: 
C(  165: 


154,*,  163) 
164,*,  167) 
155,*,  170) 


A(8,*,171)       A(7,*,169) 


CURRENT    POOL    FOR    BLOCKS    2    IS: 
A(3,*,161)       A(2,*,160)       All,*, 159) 

AFTER    PERFORMING    THE    MEFT    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL     IS    THE    SAME    AS    OLD    CURRENT    POOL 


CONTROL  AT 

40, 

C*40 

0 

FNT 

B*41 

0 

LOC 

8*4  2 

0 

LOD 

B*43 

0 

INT 

8+44 

0 

FQL 

B+45 

0 

XI  T 

8+46 

0 

XIT 

B+47 

0 

BSC 

FROM    BLK    4 


TO  BLK  5  (PASS  1) 

172 

000380AC 

1 

00020001 

0 

00270000 

4 

00050004 

0 

001E0000 

61 

0004003D 

48 

00040030 

0 

002F0000 

123 


-j 


1N1I1AL     LUKKCNI      UKIiniitU     KUUL      IU     BC     UltU     l"UK         BLlllMt      H      lb: 

Cj 159:154. *f 163)       C (  159 : 153, * , 162)       C( 1 59  :  156 ,*, 1 78)       A(3,+(161) 


A(2,*,  160) 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK* 
C(  159:154,*, 163)       C(  15rv  :  153,*,  162)       C(  1  59:  156,*,  178) 
A(  1,*,159) 


9     IS: 
A(3,*,161 ) 


A(2,*,  160) 


CONTROL  AT 

48, 

C+48 

0 

ENT 

B+49 

0 

LOC 

B  +  50 

0 

INT 

B+51 

0 

LOC 

B+52 

0 

LOD 

B+53 

0 

MUL 

B+54 

0 

LOC 

B+55 

0 

LOD 

B+56 

0 

MUL 

B+57 

0 

STO 

B+58 

0 

DEL 

B+59 

0 

XIT 

B+60 

0 

BRS 

FROM  BLK  5  TO  BLK 
192 
4 
3 
2 
0 
0 
3 
0 
0 
0 
0 

103 
0 


9  (PASS  1) 

000380CO 
00020004 
00050003 
00020002 
00270000 
00140000 
00020003 
00270000 
00140000 
00280000 
002AOOOO 
00040067 
002EC000 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C(  159:156,*, 173)   C( 159 : 153,*, 162)   C(159:154, 
C( 179:161,*, 1801   A(4,*,180)   A(3,*,161)   A(2, 

CONTROL  AT  103,  FROM  BLK  9  TO  BLK  10  (PASS  1) 
C  +  103   0     ENT         TC  J 197    I  000380C5 
B*104   0    (ENT         JC1182    I  000380B6 

BEFORE  THE  MEET  OPERATION: 


BLOCK* 
*, 163) 
*,lbO) 


10    IS: 

C( 155:150,* 

A( 1,*,159) 


179) 


OUTPUT    POOL    FROM  BLOCK*     10    IS: 

C( 179:16  1,*, 180)  C( 155: 160,*, 179) 

C(  159: 154,*, 16  2)  C( 1 59 : 156,*, 17  8) 
A(  1,*,159) 


C( 159:1 54,*, 163)       C( 159:153,*, 162) 
A(4,*,180)       A(3,*,161)       A(2,*,160) 


CURRENT    POOL    FOR    BLOCK*    7    IS: 

C( 159: 154,*, 163)       C( 159 : 153,*, 162 ) 

A(4,*,165)        A(3,*,161)        A(2,*,160) 

AFTER    PERFORMING    THE    MEET    OPERATION: 


C( 160:161,*, 164) 
A<  1,*,159) 


C(155:164,*,165) 


NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOCK*  7  IS: 
A(4,*,181)   A(3,*,161)   A(2,*,160)   A(l,*,159) 


CONTROL  AT 

104, 

C+104 

0 

ENT 

BH05 

0 

LOC 

BM  06 

0 

LOC 

B+107 

0 

LOD 

B  +  108 

0 

INT 

B  +  109 

0 

DIV 

B  +  110 

0 

STO 

B  +  lll 

0 

DEL 

B  +  112 

0 

LOC 

B*113 

0 

LOC 

B  +  114 

0 

LOD 

B  +  115 

0 

LOC 

B  +  116 

0 

LOD 

B  +  117 

0 

INT 

B  +  118 

0 

MUL 

B  +  119 

0 

SU3 

B  +  120 

0 

STO 

B  +  121 

0 

DEL 

B+122 

0 

LOC 

B  +  123 

0 

LOC 

B  +  124 

0 

LOD 

B+125 

0 

INT 

B*126 

0 

DIV 

B  +  127 

0 

STO 

B  +  128 

0 

DEL 

B  +  129 

0 

LOC 

B  +  130 

0 

LOC 

BU31 

0 

LOD 

B  +  132 

0 

INT 

B  +  133 

0 

DIV 

B  +  134 

0 

LOC 

B  +  135 

0 

LOD 

B+136 

0 

INT 

B  +  137 

0 

MUL 

BH38 

0 

SUB 

BU39 

0 

STO 

B  +  140 

0 

DEL 

FROM 


BLK 
C 


10  TO 

182 

5 

4 

0 

1 

988 

0 

0 

6 

4 

0 

5 

0 

1 

984 

980 

0 

0 

7 

4 

0 

3 

976 

0 

0 

8 

4 

0 

1 

972 

7 

0 

1 

968 

964 

0 

0 


BLK  7  IPASS  2) 

000380B6 
00020005 
00020004 
00270000 
00050001 
001633DC 
00280000 
OO2A0000 
00020006 
00020004 
00270000 
00020005 
00270000 
00050001 
00148308 
001283D4 
00280000 
0O2A00OO 
00020007 
00020004 
00270000 
00050003 
001603DO 
00280000 
002A0000 
0002000  8 
00020004 
00270000 
00050001 
001683CC 
00020007 
00270000 
00050001 
00148  3C8 
001203C4 
00280000 
002A0000 


COMM  SUBEXP  ELIM 


1?A 


B^ltl    U 

LUL 

1 

UUU^UUUl 

... 

B  +  142   0 

INT 

0 

00050300 

B*143   0 

STO 

0 

00290000 

B  +  144   0 

LOC 

2 

00020002 

B*145   0 

INT 

0 

00050000 

B  +  146   0 

STD 

0 

00290000 

BtH7   0 

LOC 

3 

00020003 

B  +  148   0 

INT 

0 

00050000 

B  +  149   0 

STO 

0 

00290000 

B  +  150   0 

XIT 

11 

ooo40ooe 

B  +  151   0 

BRS 

0 

002E0000 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  PCOL  FROM  BLOCK*  7  IS: 

C<  181:153,*, 182)   C(  182  :  153,*,  183)   C(18l:183,* 

,184) 

C(  181:155,*, 

185) 

Cf 185:153,*, 136)   C ( 181 : 155 , *, 186 )   C(182:186,* 

rl87) 

A(3,*, 190) 

A(2,*, 189) 

A(  1,*,  138) 

A( 8,*, 187) 

A<7,*,165)   A<6,*,184} 

A(  5,* 

,  182)   A(4,*, 

181) 

CURRENT    POOL    FOR    BLOCK//    2    IS: 
A(3,*il75)       A(2,*,176)       A(l,*,177) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME    AS    OLD    CURRENT    POOL 

FROM    BLK    5 


CONTROL  AT 

61, 

C+61 

0 

ENT 

B*62 

0 

LOC 

B*63 

0 

LOD 

B+64 

0 

INT 

B+65 

0 

EQL 

B*66 

0 

XIT 

B+67 

0 

XIT 

B+68 

0 

BSC 

TO  BLK  8  (PASS  1) 

187 

000380BB 

i 

00020001 

0 

00270000 

5 

00050005 

0 

OOIEOOOO 

82 

00040052 

69 

00040045 

0 

002F0000 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK/*     11    IS: 

C( 159:156,*, 178)       C (  1  59  :  1  53 , *,  162)       C( 1 59: 154,*, 163)       C (  159: 157 ,*,  194) 

A(3,*,161)       A(2,*,160)       All,*, 159) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE 
C( 159: 156.*. 178)   C (  1 59 :  153,* ,  162)  I 

*,  1p9» 


USED 
(159: 


A(3,*, 161) 

' A(2,*,160) 

A(  1, 

CONTROL  AT 

69,  FROM  BLK  8  TO 

C+69    0 

ENT 

C 

207 

B*70    0 

LOC 

4 

B+71    0 

INT 

3 

B+72    0 

LOC 

2 

B  +  73    0 

LOD 

0 

B+74    0 

MUL 

0 

B  +  75    0 

LOC 

3 

B*76    0 

LOD 

0 

B+7  7    0 

DIV 

0 

B+78    0 

STO 

0 

B*7  9    0 

DEL 

0 

B+80    0 

XIT 

102 

B  +  81    0 

BRS 

0 

BLK  12  (PASS 

000380CF 
00020004 
00050003 
00020002 
00270000 
00140000 
00020003 
00270000 
00160000 
00280000 
002A0000 
00040066 
002E0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED 
C(  159: 157,*, 194)   C ( 159  :  154, * , 163)   C(159: 
C( 155:160,*, 195)   C(  195  :  161 ,* ,  196 )   A(4,*f 
A( 1,*,159) 

CONTROL  AT  102,  FROM  BLK  12  TO  BLK  13  (PASS  1) 
C+102   0    lENT         T C 1 2 12    I  00038004 
B  +  103   0    lENT  1 C I  197    I  000380C5 


FOR   BLOCKS 
154,*, 163) 


1) 


12  IS: 
C( 159: 


157,*, 194) 


FOR   BLOCKS 
153,*, 162) 


13  IS: 

C(  159:156,*,  178) 


196)   A(3,*,lbl)   A(2,*,160) 


BEFORE  THE  MEET  OPERATION: 


OUTPUT  POOL  FROM 

C( 195:161,*, 196) 

C(  159: 154,*, 163)   C(  159 

A(2,*,160)   A(l,*,159) 


BLOCK*  13  IS: 
C( 155: 160,*, 195) 


153,*,  163) 


CU59 
C(159 


156,*, 178) 
157,*,  194) 


C(  159:15  3,* 
A(4,*,i96  i 


162) 

A( 3,*, 161 ) 


CURRENT  POOL  FOR  BLOCKS  10  IS:  .  , , 

C(i59:156,*,178)   C (  159 :  153 ,*, 162)   C ( 1 59 : 1 54, *, 163 
C( 179:161,*, 180)   A(4,*,180)   A(3,*,16l)   A(2,*,160) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCK/*     10    IS: 
A(4,*,197)       A(3,*,161)       A(2,*,160)       A(l,*,159) 

_ CONTROL    AT.103,    FROM    BLK#13_J0    BLK_ 10_ ( PASS , 2 ) 


C(  155:160,*, 179) 
A(l,*,159j 


125 


6*104      0 


ItNl 

Ient 


CIIW 
Cl  182 


BEFORE    THE    MEET    OPERATION: 


OUTPUT  POOL 
A(4,*,197) 


FROM  BLOCK* 
Al3r*i 16  1  j 


UUU38UC5 
000380b6 


10  IS: 

A( 2,*, 160) 


A( 1,*, 159) 


CURRENT  POOL  FOR  BLOCK* 
A<4,*,181)   A(3i*,161J 


7  IS: 
A(2,*t 160) 


A(l,*,159) 


AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 


CONTROL  AT 

£2, 

C  +  82 

0 

ENT 

6+83 

0 

LOC 

6+84 

0 

LOD 

6*85 

0 

INT 

B*86 

0 

EQL 

8*87 

0 

XIT 

8*88 

0 

XIT 

6*89 

0 

BSC 

FROM  BLK  8  TO 

202 

1 

0 

6 

0 

101 
90 
0 


BLK 


11  (PASS 
000360CA 
00020001 
00270000 
00050306 
001E0300 
00040065 
0004J05A 
O02F0OO0 


1 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  JSEO  FOR   BLOCK*  14  IS: 

C( 159:157,*, 194)   C <  159  :  154,* , 163)   C i 1 59 :  153,*, 162 )   C I  159 : 156 ,*, 178) 

C(l 59: 158,*, 199)   A(3,*,161)   A(2,*,160)   All,*, 159) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK* 
C( 159:157,*, 194)   C (  159  :  154,*,  163)   C ( 1 59  :  I  53  ,  * ,  162 ) 
C( 159:158,*, 199)   A(3,*,161)   A(2,*,lb0)   A(l,*,159) 

CONTROL  AT  90,  FROM  BLK  11  TO  BLK  15  (PASS  1) 


15    IS: 

C(  159:156,*, 178) 


C  +  90 

0 

IENT 

6+91 

0 

LOC 

8*92 

0 

INT 

8+93 

0 

LOC 

8+94 

0 

LOD 

B+95 

0 

LOC 

8+96 

0 

LOD 

B+97 

0 

SUB 

6+98 

0 

MUL 

8+99 

0 

STO 

e+ioo 

0 

DEL 

8  +  101 

0 

ENT 

222 

000380DE 

4 

00020004 

3 

00050003 

2 

00020002 

0 

00270000 

3 

00020003 

0 

CO270GO0 

0 

00120000 

0 

n  0  '  4  0  r>  0  n 

0 

00280000 

0 

002AOOOO 

217 

000360D9 

6EF0RE    THE   MEET    OPERATION: 

-OUTPUT    POOL    FROM    BLOCK*    15    IS: 
C( 159: 15  8,*, 199)       C( 159 : 156,*, 17  8) 
C(  159: 153,*, 163)       C (  1  59 : 15 7 , * , 194) 
A(4,*,201)       A13,*,161)        A(2,*,160) 


C( 159:153,*, 162) 

C( 160:161,*, 200) 
A(l,*,159) 


C(  159:154,*, 163) 
C(  155:200,*, 201) 


CURRENT  POOL  FOR  BLOCK*  14  IS: 

C< 159:157,*, 194)       C(  159 : 154 ,*, 163)       C (  I  59  : 1  53  ,* , 162) 

C( 159:158,*, 199)       A(3,*,161)       A(2,*,160)       Ail, *, 159) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCK*    14    IS: 
A(3,*,161)       Ai2,*,160)       A(l,*,159) 

CONTROL    AT    101,    FROM*BLK    15    TO    BLK    14    (PASS    1) 
C+101       0  I ENT  1CI217  000330D9 


C(159:156,*,178) 


6  +  102 


ENT 


000380D4 


8EF0RE    THE   MEET    OPERATION: 


OUTPUT    POOL    FROM    BLOCK*     14    IS: 
Al3i*,161)       A(2,*,160)       Ail,*, 159) 

CURRENT    FOOL    FOR    BLOCK*     13     IS: 
C( 159: 157,*, 194)       C( 159: 154,*, 163) 
CI  155:160,*, 195)       C( 195:161,*, 196) 
A( 1,*, 159) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCK*    13    IS: 
A(3,*,161)       A(2,*,160)       Ail, *, 159) 

^CONTROL    AT, 102,    FROM    BLK.,14_T0    BLK_  13_  (  PASS,  2) 


C(  I  59: 153,*, 162)       C (  159 : 1 56 ,* ,  178) 
A(4,*,196)       A(3,*,161)       A(2,*,160) 


126 


BU03      0 


itNl 
IENT 


IfelfM     I 


000380C5 


BEFORE  THE  MEET  UPERATION: 

OUTPUT  POOL  FROM  BLOCK*  13  IS: 
A(3,*,161)   A(2,*,160)   A(l,*,159) 


CURRENT  POOL  FOR  BLOCKS  10  IS: 

A(4,*,197)   A(3,*,161)   A(2,*,160)   All,*, 159) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOCK*  10  IS: 
A(3,*,161)   AI2i*tl60J   A(lt*il59) 

CONTROL  AT  103t  FROM  BLK  13  TO  BLK  10  (PASS  3) 
C*103   0    IENT  | C 1 197      000380C5 

B+104   0    (ENT  JC1132    |  000380B6 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  10  IS: 
A(3,*,161)   A(2,*,160)   All,*, 159) 


CURRENT  POOL  FOR  BLOCK*  7  IS: 
A(4,*,193)   A(3,*.,161)   A(2,*,160) 

AFTER  PERFORMING  THE  MEET  OPERATION: 


All,*, 159) 


NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOCK*  7  IS: 
A(3,*,161)   A(2,*,160)   All,*, 159) 


CONTROL  AT 

104,  FROM  BLK 

10  TO  E 

5LK  7  (PASS  3) 

'  C  +  104 

0 

ENT 

C 

182 

000380B6 

BH05 

0 

LOC 

5 

00020005 

BH06 

0 

LOG 

4 

00020004 

B  +  107 

0 

LOD 

0 

00270000 

B  +  108 

0 

INT 

1 

00050001 

B  +  109 

0 

DIV 

C 

988 

001683DC 

6  +  1  10 

0 

STO 

0 

00280000 

B+lll 

0 

DEL 

0 

O02AO0OO 

B*112 

0 

LOC 

6 

00020006 

B  +  113 

0 

LOC 

4 

00020004 

B+114 

0 

LOD 

0 

00270000 

B  +  115 

0 

LUC 

5 

00020005 

B+116 

0 

LOD 

0 

00270000 

B  +  117 

0 

INT 

1 

00050001 

B+118 

0 

MUL 

C 

984 

00143308 

B  +  119 

0 

SUB 

C 

980 

001283D4 

6  +  120 

0 

STO 

0 

00280000 

6  +  121 

0 

DEL 

0 

002A0000 

8  +  122 

0 

LOC 

7 

00020007 

B+123 

0 

LOC 

4 

00020004 

6  +  L24 

0 

LOD 

0 

00270000 

8  +  125 

0 

INT 

3 

00050003 

8  +  126 

0 

DIV 

C 

976 

001683D0 

6  +  127 

0 

STO 

0 

00280000 

8  +  128 

0 

DEL 

0 

002A0000 

B  +  129 

0 

LOC 

8 

00020008 

6  +  130 

0 

LOC 

4 

00020004 

8  +  131 

0 

LOD 

0 

00270000 

8  +  132 

0 

INT 

1 

00050001 

8  +  133 

0 

DIV 

C 

972 

001683CC 

8  +  134 

0 

LOC 

7 

00020007 

8  +  135 

0 

LOD 

0 

00270000 

B  +  136 

0 

INT 

1 

00050001 

8  +  137 

0 

MUL 

C 

968 

001483C8 

8  +  138 

0 

SUB 

C 

964 

001283C4 

8  +  139 

0 

STO 

0 

00280000 

B  +  140 

0 

DEL 

0 

002A0000 

B  +  141 

0 

LOC 

1 

00020001 

B+142 

0 

INT 

0 

00050000 

8  +  143 

0 

STO 

0 

002°0000 

8  +  144 

0 

LOC 

2 

00020002 

B  +  145 

0 

INT 

0 

00050000 

8  +  146 

0 

STD 

0 

00290000 

8  +  147 

0 

LOC 

3 

00020003 

8  +  148 

0 

INT 

0 

00050000 

B+149 

0 

STD 

0 

00290000 

6  +  1  50 

0 

X1T 

11 

00040008 

B  +  151 

0 

BRS 

0 

002E0000 

COMM  SUB  EXP  ELIM 


BEFORE  THE  MEET  OPERATION: 


12? 


OUTPUT    POOL    FROM  BLOCK*    7    IS: 

C< 202:1 53,* t 203)  C ( 2  03 : 1 53 ,*, 204) 

C(206:153,*,20  7)  C(  202:155,*, 207) 
A( 1,*,20 


C(202:204,*,205) 
C(203:207,*,208) 


C(202:155,*,206) 

A  (  3 ,  * ,  2 1 1 J   A  (  2  ,  *  ,  2  1 0  ) 


9)   A<8,*,208)   A(7,*,206)   A(6,*,205)   A<4,*,202)   A(5,*,203) 


CURRENT  POOL  FOR  BLOCK*  2  IS: 
A<3,*,191)   A(2,*f192J   Ad,*, 193) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 

CONTROL  AT  152,  FROM  BLK  2  TO  BLK  3  (PASS  1) 
C  +  152   0    IENT         |C|162    |  000380A2   | 


FINAL  OPTIMIZATION  RESULTS 


OPTIMIZATION  AT  133 

(153,2021109,203)    COMM  SUBEXP  ELIM 

****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF     OP  CODE     CNS  ADR     RAW  CODE      OPTIMIZATION 

SET                     /ETC                       TYPE 

*#********  ********^**#*  **********<:***#**********#*  <'*<=***************** 

0      0 

ENT 

153    1 

00030099 

1      0 

TOGGLE 

257 

00030101 

2      0 

LOC 

1  . 

00020001 

3      0 

INT 

0 

00050000 

4      0 

STD 

0 

00290000 

5      0 

LOC 

2 

00020002 

6      0 

INT 

0 

00050000 

7     0 

STD 

0 

00290000 

8     0 

LOC 

3 

00020003 

9     0 

INT 

0 

00050000 

10     0 

STD 

0 

00290000 

11     0 

ENT 

157 

0003009D 

12     0 

LOC 

1 

00020001 

13     0 

LOD 

0 

00270000 

14     0 

INT 

1 

00050001 

15     0 

NEQ 

1024 

001F0400 

16     0 

XIT 

152 

00040098 

17     0 

XIT 

19 

00040013 

18     0 

BSC 

0 

002F0000 

19     0 

FNT 

167 

000300A7 

20     0 

LOC 

1 

00020001 

21     0 

LOD 

0 

00270000 

22     0 

INT 

2 

00050002 

23     0 

EQL 

1016 

001E03F8 

24     0 

XIT 

40 

00040028 

25     0 

xi  r 

27 

0004001B 

26     0 

BSC 

0 

002F00O0 

27     0 

ENT 

177 

000300B1 

28     0 

LOC 

4 

00020004 

29     0 

INT 

3 

00050003 

30     0 

LOC 

2 

OOO2G0O2 

31     0 

LOD 

0 

00270000 

32     0 

LOC 

3 

00020003 

i 

33     0 

LOD 

0 

00270000 

34     0 

ADD 

1004 

001003EC 

35     0 

MUL 

1000 

001403E8 

36     0 

STO 

0 

002&0000 

37     0 

DEL 

0 

002A0000 

38     0 

XIT 

104 

00040068 

39     0 

BRS 

0 

002EOOOO 

40     0 

ENT 

172 

000300AC 

41     0 

LOC 

1 

00020001 

42     0 

LOD 

0 

00270000 

43     0 

INT 

4 

00050004 

44     0 

EQL 

960 

001E03C0 

45     0 

XIT 

61 

0004003D 

46     0 

XIT 

48 

00040030 

47     0 

BSC 

0 

002F0000 

48     0 

ENT 

192 

000300CO 

49     0 

LOC 

4 

00020004 

50     0 

INT 

3 

00050003 

51     0 

LOC 

2 

00020002 

52     0 

LOD 

0 

00270000 

53     0 

MUL 

944 

00140330 

54     0 

LOC 

3 

00020003 

55     0 

LOD 

0 

00270000 

56     0 

MUL 

940 

001403AC 

57     0 

STO 

9 

00280000 

...... 

128 


:>b 

V 

59 

0 

60 

0 

61 

0 

62 

0 

63 

0 

64 

0 

65 

0 

66 

0 

67 

0 

68 

0 

69 

0 

70 

0 

71 

0 

72 

0 

73 

0 

74 

0 

75 

0 

76 

0 

77 

0 

78 

0 

79 

0 

80 

0 

81 

0 

82 

0 

83 

0 

84 

0 

85 

0 

86 

0 

87 

0 

88 

0 

89 

0 

90 

0 

91 

0 

92 

0 

93 

0 

94 

0 

95 

0 

96 

0 

97 

0 

98 

0 

99 

0 

100 

0 

101 

0 

102 

0 

103 

0 

104 

0 

105 

0 

106 

0 

107 

0 

108 

0 

109 

0 

110 

0 

111 

0 

112 

0 

113 

0 

114 

0 

115 

0 

116 

0 

117 

0 

118 

0 

119 

0 

120 

0 

121 

0 

122 

0 

123 

0 

124 

0 

125 

0 

126 

0 

127 

0 

128 

0 

129 

0 

130 

0 

131 

0 

132 

0 

133 

0 

134 

0 

135 

0 

136 

0 

137 

0 

138 

0 

139 

0 

140 

0 

141 

0 

142 

0 

143 

0 

144 

0 

145 

0 

UtL 
XIT 

BRS 
ENT 
LOC 
LOD 
INT 
EQL 
XIT 
XIT 
BSC 
ENT 
LOC 
INT 
LOC 
LOO 
MUL 
LOC 
LOD 
DI  V 
STO 
DEL 
XIT 
BRS 
ENT 
LOC 
LOD 
INT 
EQL 
XIT 
XIT 
BSC 
ENT 
LOC 
INT 
LCC 
LOD 
LOC 
LOO 
SUB 
MUL 
STO 
DEL 
ENT 
ENT 
ENT 
ENT 
LOC 
LOC 
LOD 
INT 
DIV 
STO 
DEL 
LOC 
LOC 
LOD 
LOC 
LOD 
INT 
MUL 
SUB 
STO 
DEL 
LOC 
LOC 
LOD 
INT 
DIV 
STO 
DEL 
LOC 
LOC 
LOO 
INT 
DIV 
LOC 
LCD 
INT 
MUL 
SUB 
STO 
DEL 
LOC 
INT 
STD 
LOC 
INT 


U 

103 

0 

187 

1 

0 

5 

926 

dZ 

69 

0 

207 

4 

3 

2 

0 

906 

3 

0 

902 

0 

0 

102 

0 

202 

1 

0 

6 

886 

101 

90 

0 

222 

4 

3 

2 

0 

3 

0 

862 

85b 

0 

0 

217 

212 

197 

182 

5 

4 

0 

1 

988 

0 

0 

6 

4 

0 

5 

0 

1 

984 

980 

0 

0 

7 

4 

0 

3 

9  76 

0 

0 

8 

4 

0 

1 

972 

7 

0 

1 

968 

964 

0 

0 

1 

0 

0 

2 

0 


00043 
002E0 
00030 
00020 
00270 
00050 
001E3 
00040 
00040 
002FO 
00020 
00020 
00050 
00020 
00270 
00140 
00020 
00270 
00160 
00280 
002A0 
00040 
002E0 
00030 
00020 
00270 
00050 
001EJ 
00040 
00040 
002F0 
00030 
00020 
00050 
00020 
00270 
00020 
00270 
00120 
00140 
00280 
O02A0 
00030 
00030 
00030 
00030 
00020 
00020 
00270 
00050 
00160 
00260 
002A0 
00020 
00020 
00270 
00020 
00270 
00050 
00140 
00120 
00280 
O02A0 
00020 
00020 
00270 
00050 
00160 
00280 
002A0 
00020 
00020 
00270 
00050 
00168 
00020 
00270 
00050 
00143 
00120 
00280 
002A0 
00020 
00050 
00290 
00020 
00050 


UUU 
067 
000 
0B8 
001 
000 
005 
39E 
052 
045 
000 
OCF 
004 
003 
002 
000 
33A 
003 
000 
366 
000 
000 
066 
000 
OCA 
001 
000 
006 
376 
065 
05A 
000 
OOE 
004 
003 
002 
000 
003 
000 
35E 
35A 
000 
000 
009 
0U4 
0C5 
036 
005 
004 
000 
001 
3DC 
000 
000 
006 
004 
000 
005 
000 
301 
308 
3D4 
000 
000 
007 
004 
000 
003 
3D0 
000 
000 
008 
004 
000 
001 
3CC 
007 
000 
001 
3C8 
3C4 
000 
300 
001 
000 
000 
002 
000 


COMM  SUBEXP  ELIM 
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IHb 

u 

5IU 

1*7 

0 

LOC 

148 

0 

INT 
STD 

149 

0 

150 

0 

XIT 

151 

0 

BRS 

152 

0 

ErNT 

U 

oo^vuuuu 

3 

00020003 

0 

00050000 

0 

00290000 

11 

00040003 

0 

OO2E000O 

162 

000300A2 

********************  ****************#*****#$**:(>,),*  $$$$$4*$$  *$$$*$;<,  <,*$*£ 


FINAL  OPTIMIZATION  POOL  FOR  EACH  BLOCK  IS: 


FINAL  POCL  FOR   BLOCK*  1  IS: 
(NULL) 


FINAL  POCL  FOR   BLOCKS  2  IS: 
A(3,*,212)   A(2,*,213)   A<1,*, 214) 


FINAL  POCL  FOR   BLOCKS  3  IS: 

C(159:153,*,162)   A(3,*,16i)   At2,*»160)   A<1,*,159) 


FINAL  POCL  FOR   BLOCKS  4  IS: 

C( 159:153t*il62)   A13,*,161)   A<2,*,160)   All,*, 159) 


FINAL  POCL  FOR   BLOCK*  5  IS: 

C(159:153,*,162)   C{ 159 :  154,*,  163)   A(3,*,161)   A(2,*,160)   A(l,*,159) 

FINAL  POOL  FOR   BLOCK*  6  IS: 

C( 159:153, *,lo2)   C ( 159 : 154,*, 163)   A(3,*,161)   A(2,*,160)   All,*, 159) 


FINAL  POCL  FOR   BLOCK*  7  IS: 
A<3,*,161)   A(2,*,160)   Ail,*, 159) 


FINAL  POCL  FOR   BLOCK*  8  IS: 

C( 159:154,*, 163)   C (  159  :  153,* , 162)   C ( 1 59: 156 , * , 178)   A(3,*,161)   A(2,*,160) 

All,*, 159) 

FINAL  POCL  FOR   BLOCK*  9  IS: 

C(  159:154,*, 163)   C (  159 : 153, *, 162)   C ( 1 59 : 156,* , 178)   A(3,*,161)   A(2,*,160) 

A( 1,*, 159) 


FINAL    POCL    FOR       BLOCK*    10    IS: 
A(3,*,161)       A(2,*,160)       A(l,*,159) 


FINAL    POCL    FOR       BLOCK*    11    IS: 

C( 159:156,*, 178)       C (  1  59 :  1  53 ,*,  162)       C ( 1 59 : 154,*, 163 )       C ( 159 : 157 ,*, 194) 

A(3,*,161)       A(2,*,160)       A(l,*,159) 

FINAL    POCL    FOR       BLOCK*    12    IS: 

C(159:l56,*,178)       C( 159 : 153,*, 162)       C( 1 59: 154,*, 163 )       C (  159: 157 ,*, 194) 

A(3,*,16l)       A(2f*f160)       A(l,*,159) 


FINAL    POCL    FOR       BLOCK*    13    IS: 
A<3,*,161)       A(2,*,160)       A(l,*,159) 


FINAL    POCL    FOR       BLOCK*    14    IS: 
A(3,*,161)       A(2,*,160)       A(l,*,159) 
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FINAL  POCL  FOR   BLOCKS  15  IS: 

C< 159: 157,*, 194)   C(  159 : 154.*,  163)   C(  I  59 : 153,*, 162)   C ( 159 : 1  56 ,* ,  178) 

C( 159:158, *,199)   A(3,*,16li   A<2,*,160)   All,*, 159) 

BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  AT  11 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  bLOCK  #2 

BEGINNING  AT  11,  ENDING  AT  18 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  #3 

BEGINNING  AT  152,  ENDING  AT  152 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  #4 

BEGINNING  AT  19,  ENDING  AT  26 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  #5 

BEGINNING  AT  40,  ENDING  AT  47 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #6 

BEGINNING  AT  27,  ENDING  AT  39 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #7 

BEGINNING  AT  104,  ENDING  AT  151 
BLOCK  TRAVERSED  3  TIMES 
1  REFERENCES: 
6 
BASIC  BLOCK  #8 

BEGINNING  AT  61,  FNDING  AT  68 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
5 
BASIC  BLOCK  #9 

BEGINNING  AT  48,  ENDING  AT  60 
BLOCK  TRAVERSED  1  TIMES 
I  REFERENCES: 
5 
BASIC  BLOCK  #10 

BEGINNING  AT  103,  ENDING  AT  104 
BLOCK  TRAVERSED  3  TIMES 
1  REFERENCES: 
v   9 
BASIC  BLOCK  #11 

BEGINNING  AT  82,  ENDING  AT  89 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
8 
"  BASIC  BLOCK  #12 

BEGINNING  AT  69,  ENDING  AT  81 
•  BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
8 
BASIC  BLOCK  #13  „   „„ 

BEGINNING  AT  102,  ENDING  AT  103 
BLOCK  TRAVERSED  2  TIMES 
1  REFERENCES: 
12 
BASIC  BLOCK  #14  ^  _„ 

BEGINNING  AT  101,  ENDING  AT  102 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
15 
BASIC  BLOCK  #15  _  ttxt 

BEGINNING  AT  90,  ENDING  AT  101 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
11 

BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER  NUMBER  OF  PASSES 

1  1 
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2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

TOTAL    NUMBER    OF    BLOCKS    PROCESSED    WAS    20 

USING    THE    LAST-IN-FIRST-OUT       BLOCK    SELECTION    ALGORITHM. 

TIME    FOR    THE    OPTIMIZATION    WAS    1.411    SECONDS. 

***CODE    SYNTHESIS    FILTER    IS    COMPLETE*** 
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CARD 

IBL 

1     SYL 

1 

1     1 

0 

COMMENT              TEST    PROGRAM 

$EXECl 

JTE 

3 

0 

1 

BEGIN    LOCAL         A,B,C,D,E, 

4 

1 

1 

B     :=    5; 

5 

1 

5 

C    :=    10; 

6 

1 

9 

A    :=    B    *   C; 

7 

1 

17 

IF    A    GTR    B    THEN 

8 

1 

22 

BEGIN 

9 

1 

26 

C    :=   30; 

10 

2 

30 

E    :=   C; 

11 

2 

35 

G    :=    B   *    E; 

12 

2 

43 

END    ELSE 

13 

1 

43 

BEGIN 

14 

1 

46 

B     :=    B    *    2; 

15 

2 

53 

D    :=    B; 

16 

2 

58 

F     :=    D    *   C; 

17 

2 

66 

END; 

18 

1 

67 

H    :=    C    *    B; 

19 

1 

75 

I    :=    B   *  C ; 

20 

1 

83 

WHILE    H    GTR    C    DO 

.     21 

1 

93 

BEGIN 

22 

1 

93 

C    :=    C    +    1; 

23 

2 

100 

F    :=    1    ♦    2; 

24 

2 

106 

G    :=   G    +   0; 

25 

2 

113 

A    :=   A    *    1; 

26 

2 

120 

B    :=    B    *   0; 

27 

2 

127 

END; 

28 

1 

130 

END 

29 

1 

130 

EOF 

CODE    f 

:IU 

:    COPIE 

ID     (130    WORDS) 

CONSTANT 

T^BLE 

COPIED    (12    WORDS) 

2  record; 

>    WRIT" 

rEN    INTO    FILE    1 

END    Of 

:    CC 

JMPILA1 

"ICN    FEBRUARY    12,     1975. 

#  3 


CLOCK  TIME  =  20:29:35.48. 


29  CARDS  WERE  READ. 

NO  ERRORS  WERE  DETECTED. 
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♦♦♦CODE    SYNTHESIS    FILTER*** 

BLOCK    SELECTION    METHOD   WILL    BE    FIRST- IN-F IRST-OUT 

♦**C    OMPLETE  TABLE         DUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    • 


***T    ABLE 


DUM    P***    AT    LOCATION 


CONSTANTS    <1>      <2>       <3>       <4>      <5>      <6>       <7>      <8>      <9>      <10>    <11>    <12>   <13>    <14> 


CONSYM 
CONTYPE 
CONVAL 
CONINT 


5 

10 

30 

2 

1 

INT 

INT 

INT 

INT 

INT 

131 

132 

133 

134 

135 

5 

10 

30 

2 

1 

0 
INT 
136 
0 


ADDR  TABL  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <U>  <12>  <13>  <14> 
(EMPTY) 

j 
VALUE  STACK  (TOP  AT  127) 

CONT  STK   <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <ll>  <12>  <13>  <14> 

BLOCKS    |0 
ENTRY     JO 


EXEC  STAC  <1> 
(EMPTY) 


<2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


****   FORMATTED  INTERME 

LCC  OFF  OP  CODE     C 
SET 
************ ************* 

0  0  ENT 

1  0  TOGGLE 

2  0-  LOC 

3  0  INT 

4  0  STO 

5  0  DEL 

6  0  LOC 

7  0  INT 

8  0  STO 

9  0  DEL 

10  0  LOC 

11  0  LOC 

12  0  LOD 

13  0  LOC 

14  0  LOD 

15  0  MUL 

16  0  STO 

17  0  DEL 

18  0  LOC 

19  0  LOD 

20  0  LCC 

21  0  LOD 

22  0  GTR 

23  0  XI T 

24  0  XI T 

25  0  BSC 

26  0  ENT 

27  0  LOC 

28  0  INT 

29  0  STO 

30  0  DEL 

31  0  LOC 

32  0  LOC 

33  0  LOD 

34  0  STO 

35  0  DEL 

36  0  LOC 

37  0  LOC 

38  0  LOD 

39  0  LOC 

40  0  LOD 

41  0  MUL 


DIATE  CODE  DUMP   **** 

NS  A  0°     RAL'  r3n-      OPTIMIZATION 

/ETC                       TYPE 

********************************************* 

C 
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00038083   i 
000B0101 

257 

.    5 

2 

00020002 

1 

00050001 

0 

00280000 

0 

002A0000 

3 

00020003 

2 

00050002 

0 

00280000 

0 

002A0000 

1 

00020001 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

46 

0004002E 

26 

0004001A 

0 

OO2F000O 

1 

00030001 

3 

00020003 

3 

00050003 

0 

00280000 

0 

002A0000 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

002AOOOO 

7 

00020007 

2 

0002U002 

0 

00270000 

5 

00020005 

0 

00270000 

. 

0 

00140000 
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t£ 

U 

blU 

43 

0 

DEL 

44 

0 

XIT 

45 

0 

BRS 

46 

0 

ENT 

47 

0 

LOC 

48 

0 

LOC 

49 

0 

LOD 

50 

0 

INT 

51 

0 

ADD 

52 

0 

STO 

53 

0 

DEL 

54 

0 

LOC 

55 

0 

LOC 

56 

0 

LOO 

57 

0 

STO 

58 

0 

DEL 

59 

0 

LOC 

60 

0 

LOC 

61 

0 

LOO 

62 

0 

LOC 

63 

0 

LOD 

64 

0 

MUL 

65 

0 

STO 

66 

0 

DEL 

67 

0 

ENT 

68 

0 

LOC 

69 

0 

LOC 

70 

0 

LOD 

71 

0 

LOC 

72 

0 

LOD 

73 

0 

MUL 

74 

0 

STO 

75 

0 

DEL 

76 

0 

LOC 

77 

0 

LOC 

78 

0 

LOD 

79 

0 

LOC 

80 

0 

LOD 

81 

0 

MUL 

82 

0 

STO 

83 

0 

DEL 

84 

0 

ENT 

85 

0 

LOC 

86 

0 

LOD 

87 

0 

LOC 

88 

0 

LCD 

89   • 

0 

GTR 

90 

0 

XIT 

91 

0 

XIT 

92 

0 

BSC 

93 

0 

ENT 

94 

0 

LOC 

95 

0 

LOC 

96 

0 

LOO 

97 

0 

INT 

98 

0 

ADD 

99 

0 

STO 

100 

0 

DEL 

101 

0 

LOC 

102 

0 

INT 

103 

0 

INT 

104 

0 

ADD 

105 

0 

STO 

106 

0 

DEL 

107 

0 

LOC 

108 

0 

LOC 

109 

0 

LOD 

110 

0 

INT 

111 

0 

ADD 

112 

0 

STO 

113 

0 

DEL 

114 

0 

LOC 

115 

0 

LOC 

116 

0 

LOD 

117 

0 

INT 

118  . 

0 

MUL 

119 

0 

STO 

120 

0 

DEL 

121 

0 

LOC 

122 

0 

LOC 

123 

0 

LOD 

124 

0 

INT 

125 

0 

MUL 

126 

0 

STO 

127 

0 

DEL 

128 

0 

XIT 

129 

0 

BRS 

U 

UO^HUUUU 

0 

U02A0000 

67 

00040043 

0 

002EOOOO 

1 

00030001 

2 

00020002 

2 

00020002 

0 

00270000 

4 

00050004 

0 

00100000 

0 

00280000 

0 

002A0000 

4 

00020004 

2 

00020002 

0 

00270000 

0 

00280000 

0 

O02A00O0 

6 

00020006 

4 

00020004 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002AOOOO 

1 

00030001 

8 

00020008 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0C00 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0O0O 

1 

00030001 

8 

00020008 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00210000 

130 

00040082 

93 

0004005D 

0 

002F0000 

1 

00030001 

3 

00020003 

3 

00020003 

0 

00270000 

5 

00050005 

0 

00100000 

0 

00280000 

0 

OO2A00O0 

6 

00020006 

5 

00050005 

4 

00050004 

0 

00100000 

0 

00280000 

0 

002A0000 

7 

00020007 

7 

00020007 

0 

00270000 

6 

00050006 

0 

00100000 

0 

00280000 

0 

O02A0000 

1 

00020001 

1 

00020001 

0 

00270000 

5 

00050005 

0 

00140000 

0 

00280000 

0 

002AOOOO 

2 

00020002 

2 

00020002 

0 

00270000 

6 

00050006 

0 

00140000 

0 

00280000 

0 

002A0000 

84 

00040054 

0 

002E0000 

JO 


13U  U  ItNl  |      |1  |      UUU3UUU1         | 

BASIC   BLOCK    /?  1 

BEGINNING    AT    0,    ENDING    AT    0 
BLOCK    TRAVERSED    0    TIMES 
0    REFERENCES: 


***E  1 

4   D    ( 

3  F 

B+2 

0 

LOC 

B+3 

0 

INT 

B+4 

0 

STO 

B*5 

0 

DEL 

B+6 

0 

LOC 

B*7 

0 

INT 

B+8 

0 

STO 

B4-9 

0 

DEL 

BUO 

0 

LOC 

B*ll 

0 

LOC 

B  +  12 

0 

LOD 

B  +  13 

0 

LOC 

B  +  14 

0 

LOD 

BU5 

0 

MUL 

B  +  16 

0 

STO 

B  +  17 

0 

DEL 

B  +  18 

0 

LOC 

B  +  19 

0 

LOD 

B+20 

0 

LOC 

B+21 

0 

LOD 

B+22 

0 

GTR 

B+23 

0 

XIT 

B  +  24 

0 

XIT 

B+25 

0 

BSC 

COMPLETE         TABLE 


2 
1 

0 
0 
3 
2 

0 
0 

1 

2 

0 

3 

0 

0 

0 

0 

1 

0 

2 

0 

0 

46 

26 

0 


00020002 
00050001 
00280000 
OO2A000O 
00020003 
00050002 
00280000 
O02A000O 
00020001 
00020002 
00270000 
00020Q03 
00270000 
00140000 
00280000 
OO2A00OO 
00020001 
00270000 
00020002 
00270000 
C0210000 
0004002E 
0004001A 
002F0000 


D  U  M  P*** 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCKS  2  IS: 

C( 131:132,*, 138)   C( 138 : 131,*, 140)   A(l,138,138)   A13, 132,132)   A(2,131,131) 

FROM  E 


CONTROL  AT 

26, 

C+26 

0 

ENT 

B  +  27 

0 

LOC 

8+28 

0 

INT 

B+2  9 

0 

STO 

B+30 

0 

DEL 

B+31 

0 

LGC 

B+32 

0 

LOC 

B  +  33 

0 

LOD 

B+34 

0 

STO 

B+35 

0 

DEL 

6*36 

0 

LOC 

B+37 

0 

LOC 

61-38 

0 

LOD 

B+39 

0 

LOC 

B+4  0 

0 

LOO 

B+41 

0 

MUL 

B+42 

0 

STO 

8+43 

0 

DEL 

B  +  44 

0 

XIT 

B+45 

0 

BRS 

TO  BLK  2  (PASS  1 

135 

00038037 

3 

00020003 

3 

00050003 

0 

00280000 

0 

OO2A000O 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

002A0000 

7 

00020007 

2 

00020002 

0 

00270000 

5 

00020005 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

67 

00040043 

0 

002E0000 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    flE    USED    FOR      BLOCK*    3     IS: 

C( 138: 131,*, 140)       C(  131 :  132 ,*, 138)       C( 131 : 133,*, 142)       A<7,142,142) 

A(5, 133,133)       A(3,133,133)       A(l,138,138)       A<2, 131,131) 

FROM    BLK    2 


CONTROL  AT 

67, 

C+67 

0 

ENT 

6+68 

0 

LOC 

B  +  69 

0 

LOC 

B  +  70 

0 

LOD 

6+71 

0 

LOC 

8  +  72 

0 

LOD 

6+73 

0 

MUL 

8+74 

0 

STO 

8  +  75 

0 

DEL 

B  +  76 

0 

LOC 

B  +  77 

0 

LOC 

B  +  78 

0 

LOD 

6+79 

0 

,LOC 

8+80 

0 

LOD 

6+81 

0 

MUL 

6+82 

0 

STO 

B  +  83 

0 

DEL 

6  +  84 

0 

ENI" 

TO  BLK  3  (PASS  1) 

140 

OO038O8C 

8 

00020008 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00200000 

0 

002A0000 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002AOOOO 

1 

00030001 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK*    4     IS: 

C( 131:133,*, 142)       C(  131 : 132,* , 138)      C < I  33 : 13  1 , * , 1 40)       A< 9, 142, 1 42 ) 

A(8,  142,142)        A(7,142,142)       A f 5 ,  133 , 13j )       A(3,133,133)        All, 130, 138) 


136 


Al  tt  131,  1  11  I 


CONTROL  AT 

84, 

C+84 

0 

ENT 

8  +  85 

0 

LOC 

8*36 

0 

LOD 

8+87 

0 

LOC 

B+68 

0 

LOD 

8+89 

0 

GTR 

8+90 

0 

XI  T 

8+91 

0 

XIT 

8+92 

0 

BSC 

84,    FROM    BLK    3    TO    BLK    4    <PASS    I) 


145 

00038091 

8 

00020008 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00210000 

130 

000400b2 

93 

0004005D 

0 

002F0000 

1*91  0  XIT  93  0004005D 

J+92         0  BSC  0  002F0000 

INITIAL    CURRENT    OPTIMIZED   POOL    TO    BE    USED    FOR       BLOCK*    5    IS: 
C<138:131,*,140)       C (  1  31  :  132, *, 1 38)       C ( 1 31 : 133,*, 142)       CC  142: 133 ,*,  140) 
Al?, 142, 142)        ACS, 142,142)       A(7,142,142)        A( 5     13 3, 133 )        AC 3, 13 3    13 3) 
Ail,  138,  133)       A(2, 131,131)  '  '       HtJt laatiaaj 

CONTROL    AT    93,     FROM    BLK    4    TO    BLK    5     (PASS    1) 
1+93  0  ENT  C    150  00038096 

1+94         0  LOC  3  00020003 


CONTROL  AT 

93, 

C+93 

0 

ENT 

B+94 

0 

LOC 

8+95 

0 

LOC 

B+96 

0 

LOD 

8+97 

0 

INT 

B+98 

0 

ADD 

B+99 

0 

STO 

B  +  100 

0 

DEL 

8  +  101 

0 

LOC 

B  +  102 

0 

INT 

B  +  103 

0 

INT 

B  +  104 

0 

ADD 

B  +  105 

0 

STO 

B+106 

0 

DEL 

B  +  107 

0 

LOC 

B  +  108 

0 

LOC 

B  +  109 

0 

LOD 

B  +  110 

0 

INT 

B  +  lll 

0 

ADD 

B  +  112 

0 

STO 

8  +  113 

0 

DEL 

8  +  114 

0 

LOC 

B  +  115 

0 

LOC 

B  +  116 

0 

LOD 

B  +  117 

0 

INT 

B+iie 

0 

MUL 

B  +  119 

0 

STO 

B  +  120 

0 

DEL 

B  +  121 

0 

LOC 

B  +  122 

0 

LOC 

B  +  123 

0 

LOD 

B  +  124 

0 

INT 

B  +  125 

0 

MUL 

B  +  126 

0 

STO 

8  +  127 

0 

DEL 

B  +  128 

0 

XIT 

B  +  129 

0 

BRS 

4  TO 
150 
3 
3 

0 
5 
0 
0 
0 
6 
5 
4 
0 
0 
0 
7 
7 
0 
6 
0 
0 
0 

1 
1 

0 
5 

0 

0 

0 

2 

2 

0 

6 

0 

0 

0 

84 

0 


5  (PASS  1) 

00038096 
00020003 
OC020O03 
00270000 
0005000$ 
00100000 
00280000 
002A00O0 
00020006 
00050005 
00050004 
00100000 
OC28COOO 
002AOOOO 
00020007 
00020007 
00270000 
00050006 
00100000 
00280000 
002A0000 
00020001 
00020001 
00270000 
00050005 
00 1 400  00 
00280000 
OO2AO00O 
00020002 
00020002 
00270000 
00050006 
00140000 
00280000 
002A0300 
00040054 
0O2E00OO 


BEFORE  THE  MEET  OPERATION: 


OUTPUT  POOL  FROM  BLOCK*  5  IS: 

C( 142:133,*, 140)       C( 131 : 133,*, 142)       C( 131:132,*, 138)       C( 138: 13  1 
C( 133: 135,*, 145)       C( 131 :  133,*,  145)       C ( 135 : 134,*, 147)       C(142:136 
C( 136: 135,*, 138)       C (  1  31 : 1 36,*,  136)       A(2,136,136)       A(l,138,138) 
A(6,147,147)       A(3, 145,145)       A(9, 142,142)       A(8,142,142)       A(5,133, 


*,  140) 
*,142J 

A( 7,142, 142) 
133) 


4    IS: 


138) 
5,133, 


CURRENT    POOL    FOR    BLOCK* 
C( 131:133,*, 142)       C(  1  31 :  132,  *•, 
A(8,142,142)        A(7, 142,142)       Al 
A(2(  131,131) 

AFTER   PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCK*    4    IS: 
A(9,142,142)       A(8,  142,142)       A(7,142,142)       A(5,133,133) 
Ad, 138,138)       A(2,*,152) 


FROM    BLK     5 


:( 138:131,*, 140)       A{9,142,142) 
133)       A(3,133,133)       Ail, 138, 138) 


A(3,*,151) 


CONTROL  AT 

84, 

C+84 

0 

ENT 

B+85 

0 

LOC 

8  +  86 

0 

LUD 

B  +  87 

0 

LOC 

B  +  68 

0 

LOD 

8  +  89 

0 

GTR 

B  +  90 

0 

XIT 

B+91 

0 

XIT 

B+92 

0 

BSC 

TO  BLI 

(  4  (PASS  2) 

145 

00038091 

8 

00020009 

0 

00270000 

3 

00020003 

0 

00270000 

988 

002103DC 

130 

00043082 

93 

0004005D 

0 

002F0000 

CONSTANT    PROPAGATION 
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INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR  BLOCK*  A  f<;< 
CU42:151,*,153)  A<9, 142, 1421  A(  87142,142)  A(7,  142.  1421 ' 
A  3,*, 151)   Atl, 138, 1381   A(2,*,152)  At/,i^,i<,2) 


A(5, 133, 1331 


BEFORE    THE    MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCKS     *    IS: 
CU42:151,*,153).    A(9, 142,1421 


Sl^iMiir'Anilsgirsit^iril^.tilj1^2'1^2'   A^,142,142,   ACS,  133,133, 


CURRENT  POOL  FOR  BLOCKS  5  IS: 

C(  138:131,  *.  140)       C(  131 :  132,*,  138)       C  (  1  31  :  133,*,  142)       C(l4?«m.*    l^ni 

llVAU-ASll  SJ?:t«:iSii  »'».»«.»««  M5:i$i"i3>c,i?i;!!l:?ii?0' 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POCL/INPUT    POOL    FOR      BLOCK*    5    IS: 

M?, 142, 1421       A(8,  142,142)       A(7, 142, 1421       A(5, 133, 1331 

All, 138, 138)   A(2,*,155)   C{  142  :  154  ,*  ,  1  56  )  i:>'iJJ'1JJ' 


A(3,*,154) 


CONTROL  AT 

, 130,  FROM  BLK 

4  TO 

C  +  130 

0 

IENT          |C 

1  155 

CONTROL  AT 

93,  FROM  BLK  ' 

t  TO 

C+93 

0 

ENT 

C 

150 

8*94 

0 

LOC 

3 

B+95 

0 

LOC 

3 

B+96 

0 

LOD 

0 

8+97 

0 

INT 

5 

B+98 

0 

ADD 

C 

9  76 

B+99 

0 

STO 

0 

B  +  l  00 

0 

DEL 

0 

B  +  101 

0 

LOC 

6 

Bfl02 

0 

INT 

5 

B  +  103 

0 

INT 

4 

B+104 

0 

ADD 

C 

972 

B  +  105 

0 

STO 

0 

B  +  106 

0 

DEL 

0 

B  +  107 

0 

LOC 

7 

B  +  108 

0 

LOC 

7 

B  +  l  09 

0 

LUL) 

0 

B  +  110 

0 

INT 

6 

B  +  l  11 

0 

ADD 

C 

968 

B  +  112 

0 

STO 

0 

B  +  113 

0 

DEL 

0 

B  +  114 

0 

LOC 

1 

B  +  115 

0 

LOC 

1 

B  +  116 

0 

LOD 

0 

B  +  117 

0 

INT 

5 

B+118 

0 

MUL 

C 

964 

B  +  119 

0 

STO 

0 

B  +  120 

0 

DEL 

0 

B  +  l  21 

0 

LOC 

2 

B  +  122 

0 

LOC 

2 

B  +  123 

0 

LOD 

0 

B  +  124 

0 

INT 

6 

B  +  125 

0 

MUL 

C 

960 

B  +  126 

0 

STO 

0 

B  +  127 

0 

DEL 

0 

B  +  128 

0 

XIT 

84 

B  +  129 

0 

BRS 

0 

BLK  6  (PASS  1 
T  0003809B 
BLK  5  (PASS  2) 
00038096 
00020003 
00020003 
00270000 
00050005 
001083D0 
00280000 
002A0000 
00020006 
00050005 
00050004 
001083CC 
00280000 
002A0000 
00020007 
00020007 
00270000 
00050006 
001083C8 
00280000 
002A0000 
00020001 
00020001 
00270000 
00050005 
001483C4 
00200000 
002A0Q00 
00020002 
00020002 
00270000 
00050006 
001483C0 
00280000 
O02A0OO0 
00040054 
002E0000 


BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLCCKtf  5  IS: 

C< 142: 154,*, 156)   C( 154: 135,*, 157) 

CI  138: 135,*, 13  81   C(  155: 136,*,  136) 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


CONSTANT  PROPAG   ION 


C( 135:134,*, 147)   C(  142: 136,*, 142) 

A(2, 136, 1361   A(l, 138,138)   A(7,142,142) 


A(6,147,147)   A(3,*,157)   A(9,  142,142)   A(8,l42,142)   A(5,133,133) 


CURRENT  POOL  FOR  BLOCK*  4  IS: 

A(9, 142,142)   A(8, 142,142)   A(7,142,142) 

Ad, 138, 138)   A(2,*,152) 


A(5,133,133)   A(3,*,151) 


AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 

FINAL  OPTIMIZATION  RESULTS 
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UPI 1M1£AI IUN    Al      15 

(131,1321 15,138) 

OPTIMIZATION    AT    12. 

(138, 131122, 140) 

OPTIMIZATION  AT  41 

(131,133f41,142) 

OPTIMIZATION    AT    73 

(131, 133141,142) 

OPTIMIZATION    AT    81 

(  131,  133141,142) 

OPTIMIZATION  AT  104 

(134,  1351  104,147) 

OPTIMIZATION  AT  111 

(136,1421 111,142) 

OPTIMIZATION  AT  118 

(135,1381  118,138) 

OPTIMIZATION  AT  125 

(136,1551 125,136) 


CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
COMM  SUBEXP  ELIM  C  CONS  PROP 
COMM  SUBEXP  ELIM  E,  CONS  PROP 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
SIMPLIFICATION 


**** 

FORMATTED  INTERMEDIATE  CODE  DUMP   *** 

LOC 

OFF     OP  CODE     CNS  ADR     RAW  CODE 

SET                    /ETC 

******* 

0 

0 

ENT 

131 

00030083 

1 

0 

TOGGLE 

257 

00060101 

2 

0 

LOC 

2 

00020002 

3 

0 

INT 

1 

00050001 

4 

0 

STO 

0 

00280000 

5 

0 

DEL 

0 

002AOOOO 

6 

0 

LOC 

3 

00020003 

7 

0 

INT 

2 

00050002 

8 

0 

STO 

0 

00280000 

9 

0 

DEL 

0 

002A0000 

10 

0 

LOC 

1 

00020001 

1 1 

0 

LOC 

2 

nno?noo? 

12 

0 

LOD 

0 

00270000 

13 

0 

LOC 

„ 

3 

00020003 

14 

0 

LOD 

0 

00270000 

15 

0 

MUL 

C 

1024 

00148400 

16 

0 

STO 

0 

00280000 

17 

0 

DEL 

0 

002AOOOO 

18 

0 

LOC 

1 

00020001 

19 

0 

LOO 

0 

00270000 

20 

0 

LOC 

2 

00020002 

21 

0 

LOD 

0 

00270000 

22 

0 

GTR 

C 

1020 

002183FC 

23 

0 

XIT 

46 

0004002E 

24 

0 

XIT 

26 

0004001A 

25 

0 

BSC 

0 

OO2FO000 

26 

0 

ENT 

135 

00030067 

27 

0 

LOC 

3 

00020003 

28 

0 

INT 

3 

00050003 

29 

0 

STO 

0 

00280000 

'   30 

0 

DEL 

0 

002A0000 

31 

0 

LOC 

5 

00020005 

32 

0 

LOC 

3 

00020003 

33 

0 

LOD 

0 

00270000 

34 

0 

STO 

0 

00280000 

35 

0 

DEL 

0 

002A0000 

36 

0 

LOC 

7 

00020007 

37 

0 

LOC 

2 

00020002 

38 

0 

LOD 

0 

00270000 

39 

0 

LOC 

5 

00020005 

40 

0 

LOD 

0 

00270000 

41 

0 

MUL 

C 

1012 

001483F4 

42 

0 

STO 

0 

00280000 

43 

0 

DEL 

0 

OO2AO0OO 

44 

0 

XI  T 

67 

00040043 

45 

0 

BRS 

0 

OO2E00O0 

46 

0 

ENT 

1 

00030001 

47 

0 

LOC 

2 

00020002 

48 

0 

LOC 

2 

00020002 

49 

0 

LOD 

0 

00270000 

50 

0 

INT 

4 

0005000^ 

51 

0 

ADD 

0 

00100000 

52 

0 

STO 

0 

00280000 

53 

0 

DEL 

0 

002A0000 

54 

0 

LOC 

4 

00020004 

55 

0 

LOC 

2 

00020002 

OPTIMIZATION 
TYPE 

*********************** #i 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 
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5t> 

u 

LUU 

57 

0 

sro 

58 

0 

DEL 

59 

0 

LOC 

60 

0 

LOC 

61 

0 

LOD 

62 

0 

LOC 

63 

0 

LOO 

64 

0 

MUL 

65 

0 

STO 

66 

0 

DEL 

67 

0 

ENT 

68 

0 

LOC 

69 

0 

LOC 

70 

0 

LOD 

71 

0 

LOC 

72 

0 

LOD 

73 

0 

MUL 

74 

0 

STO 

75 

0 

OEL 

76 

0 

LOC 

77 

0 

LOC 

78 

0 

LOD 

79 

0 

LOC 

80 

0 

LOD 

81 

0 

MUL 

82 

0 

STO 

83 

0 

DEL 

84 

0 

ENT 

85 

0 

LOC 

86 

0 

LOD 

87 

0 

LOC 

88 

0 

LOD 

89 

0 

GTR 

90 

0 

XIT 

91 

0 

XIT 

92 

0 

BSC 

93 

0     . 

ENT 

94 

0 

LOC 

95 

0 

LOC 

96 

0 

LOD 

97 

0 

INT 

98 

0 

ADD 

99 

0 

STO 

100 

0 

IDEL 

101 

0 

LOC 

102 

0 

INT 

103 

0 

INT 

104 

0 

ADD 

105 

0 

STO 

106 

0 

DEL 

107 

0 

LOC 

108 

0 

LOC 

109 

0 

LOD 

110 

0 

INT 

111 

0 

ADD 

112 

0 

STO 

113 

0 

DEL 

114 

0 

LOC 

115 

0 

LOC 

116 

0 

LOD 

117 

0 

INT 

118 

0 

MUL 

119 

0 

STO 

120 

0 

DEL 

121 

0 

LOC 

122 

0 

LOC 

123 

0 

LOD 

124 

0 

INT 

125 

0 

MUL 

126 

0 

STO 

127 

0 

DEL 

128 

0 

XIT 

129 

0 

BRS 

130 

0 

ENT 

*♦*#«*»*****! 

I***** 

0 

0 

0 

6 

4 

0 

3 

0 

0 

0 

0 

140 

8 

3 

0 

2 

0 

1002 

0 

0 

9 

2 

0 

3 

0 

998 

0 

0 

145 

8 

0 

3 

0 

988 

130 

93 

0 

150 

3 

3 

0 

5 

976 

0 

0 

6 

5 

4 

972 

0 

0 

7 

7 

0 

6 

968 

0 

0 

1  • 

1 

0 

5 

964 

0 

0 

2 

2 

0 

6 

960 

0 

0 

84 

0 

155 


qv<l  rouuu 

00280000 
002A0000 
00020006 
00020004 
00270000 
00020003 
00270JOO 
00140000 
00280000 
O02A0OOO 
0003008C 
00020008 
00020003 
00270000 
00020002 
00270000 
001433EA 
00280000 
002&0000 
00020009 
00020002 
00270000 
00020003 
00270000 
001483E6 
00280000 
OO2A0OOO 
00030091 
00020008 
00270000 
00020003 
00270000 
002103DC 
00040082 
0004005D 
002FOOOO 
00030096 
00020003 
00020003 
00270000 
00050005 
001003DO 
00280000 
002AOOOO 
00020006 
00050005 
00050004 
001083CC 
00280000 
OO2A00OO 
00020007 
00020007 
00270000 
00050006 
001083C8 
00280000 
OO2A00OO 
00020001 
00020001 
00270000 
00050005 
001483C4 
00280000 
002A0000 
00020002 
00020002 
00270000 
00050006 
0014S3C0 
00280000 
002A0000 
00040054 
002E0000 
00030098 


COMM  SUBEXP  ELIM  6  CONS  PROP 


COMM  SUBEXP  ELIM  L    CONS  PROP 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


SIMPLIFICATION 


$$#*<.$**$#*#******:«******#*****<<***»** 


FINAL  OPTIMIZATION  POOL  FOR  EACH  BLOCK  IS: 


FINAL  POCL  FOR   BLOCK*  1  IS: 
(NULL1 


1^0 


FINAL    POCL    FOR       BLOCK*    2    IS: 

C( 131:132,*, 138)       C(  138: 131,*, 140)       A(l,138,138)       A<3, 132,132)       A( 2,131 ,131} 

FINAL    POCL    FOR      BLOCK*    3    IS: 

CU38:131,*,140)       C  (  131  :  132  ,*  ,  13  8)       C  (  131 :  133,*,  142  )       A(7,142,142) 

A(5,133,133)   A(3,133,133)   Ail, 138,138)   A(2,131,131) 

FINAL  POCL  FOR   BLOCK*  4  IS: 

A(9,142,142)   A(8,142,142)   A(7,142,142)   A(5,133,133)   A(3,*,160) 

A<1, 138,138)   A(2,*,161) 

FINAL  POCL  FOR   BLOCK*  5  IS: 

A<9,142,142)   A(8,L42,142)   A(7, 142,142)   A(5,133,133)   A<3,*,154) 

A(l,138,138)   A(2,*,155)   C(  142:  154,*, 156 ) 

FINAL  POCL  FOR   BLOCK*  6  IS: 

C( 142:151,*, 153)   A(9,142,142)   A(8,142,142)   A(7,142,142)   A(5,133,133) 

A(3,*,15li   All, 138, 138)   A(2,*,152) 

BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  AT  25 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  H2 

BEGINNING  AT  26,  ENDING  AT  45 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  *3 

BEGINNING  AT  67,  ENDING  AT  84 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 

o 

BASIC  BLOCK  *4 

BEGINNING  AT  84,  ENDING  AT  92 

BLOCK  TRAVERSED  2  TIMES 

1  REFERENCES: 
3 
BASIC  BLOCK  *5 

BEGINNING  AT  93,  ENDING  AT  129 

BLOCK  TRAVERSED  2  TIMES 

1  REFERENCES: 
4 
BASIC  BLOCK  *6 

BEGINNING  AT  130,  ENDING  AT  130 

BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 
4 

BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER  NUMBER  OF  PASSES 

\  | 

5  ? 

6  1 

TOTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  8  .„„„,,..,„ 

USING  THE  FIRST-IN-FIRST-OUT   BLOCK  SELECTION  ALGORITHM. 

TIME  FOR  THE  OPTIMIZATION  WAS  0.270  SECONDS. 

***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 


I'll 


CARD 

IBL 

SYL 

1 

1    1    o 

0 

COMMENT               TEST    PROGR 

SEXECUTE 

3 

0 

1 

BEGIN    LOCAL    A,    B,     Cf    D 

4 

1 

1 

B     :=    5; 

5 

1 

5 

C    :=    10; 

6 

1 

9 

A    :=    B    *    C; 

7 

1 

17 

IF    A    GTR    B    THEN 

8 

1 

22 

BEGIN 

9 

1 

26 

E    :=   C; 

10 

2 

31 

G    :=    B    *    E; 

11 

2 

39 

END 

12 

2 

39 

ELSE 

13 

1 

39 

BEGIN 

14 

1 

42 

D    :=   B; 

15 

2 

47 

F    :=   D    *   C; 

16 

2 

55 

END; 

17 

1 

56 

H    :=  C   *   B; 

18 

1 

64 

IF    A    GTR    B     THEN 

19 

1 

69 

BEGIN 

20 

1 

73 

C    :=    30; 

21 

2 

77 

E    :=   C; 

22 

2 

82 

G    :=   B    *   C; 

23 

2 

90 

END 

24 

2 

90 

ELSE 

.   25 

1 

90 

BEGIN 

26 

1 

93 

B    :=    20; 

27 

2 

97 

D    :=   B; 

28 

2 

102 

F     :=    D    *   C; 

29 

2 

110 

END; 

30 

1 

111 

H    :=    C    *    B; 

31 

1 

119 

I     :=    B    *   C; 

32 

1 

127 

END 

33 

1 

127 

EOF    EOF 

CODE    FIU 

:    COPIE 

10     (127    WORDS) 

CONSTANT 

TABLE 

COPIED     (8    WORDS) 

2    RECORD! 

5    WRIT! 

FEN    INTO    FILE    1 

END    Cf 

:    CC 

SMPILA" 

riON    FEBRUARY    12,     1975. 

I  *  5       ; 
E,  F,  G,  H,  I; 


CLOCK  TIME  =  20:31:47.40. 


33  CARDS  WERE  READ. 

NO  ERRORS  WERE  DETECTED. 


l*J-2 


***CODE  SYNTHESIS  FILTER*** 

BLOCK  SELECTION  METHOD  WILL  BE  LAST-  IN-F IRST-OUT 

***C  OMPLETE    TABLE    DUM  P*** 

DUMP  REQUESTED  FROM  BLOCK  NUMBER  -  0  AT  LOCATION  =  0 


***T  ABLE 


0  U  M  P***  AT  LOCATION 


CONSTANTS  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


CONSYM 

5    I 

10 

30 

20 

CCNTYPE 

INT 

INT 

INT 

INT 

CONVAL 

128 

129 

130 

131 

CON1NT 

5 

10 

30 

20 

ADDR  TABL  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <U>  <12>  <13>  <14> 
(EMPTY) 

j 
VALUE  STACK  (TOP  AT  127) 


CONT  STK   <1>   <2>   <3> 

<4> 

BLOCK*    10 

ENTRY     10 

EXEC  STAC  <1>   <2>   <3>   <4> 

(EMPTY) 

****   FORMATTED  INTERMEDIATE 

LOC  OFF 

CF    CODE     CNS  AD 

SET 

/E 

*#***#*££*#*#********* **$* **** 

0      0 

ENT 

C 

128 

1      0 

TOGGLE 

257 

2      0 

LOC 

2 

3     0 

INT 

1 

4     0 

STO 

0 

5     0 

DEL 

0 

6      0 

LOC 

3 

7      0 

INT 

2 

8      0 

STO 

0 

9      0 

DEL 

0 

10     0 

LOC 

1 

11     0 

LOC 

2 

12     0 

LOD 

0 

13     0 

LOC 

3 

14     0 

LOD 

0 

15     0 

MUL 

0 

16     0 

STO 

0 

17     0 

DEL 

0 

18     0 

LOC 

1 

19     0 

LOD 

0 

20     0 

LOC 

2 

21     0 

LOD 

0 

22     0 

GTR 

0 

23     0 

XIT 

42 

24     0 

XIT 

26 

25     0 

BSC 

0 

26     0 

ENT 

1 

27     0 

LOC 

5 

28     0 

LOC 

3 

29     0 

LOD 

0 

30     0 

STO 

0 

31     0 

DEL 

0 

32     0 

LOC 

7 

33     0 

LOC 

2 

34     0 

LOD 

0 

35     0 

LOC 

5 

36     0 

LOD 

0 

37     0 

MUL 

0 

38     0 

STO 

0 

39     0 

DEL 

0 

40     0 

XIT 

56 

41     0 

BRS 

0 

<5>   <6>   <7>   <8>   <9>   <10>  <ll>  <12>  <13>  <14> 


<5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


CODE  DUMP   **** 
R  RAW  CODE      OPTIMIZATION 

TC  TYPE 


00038080 
000B0101 
00020002 
00050001 
00280000 
002A0000 
00020003 
00050002 
00230000 
OO2AOO00 
00020001 
00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
002A0000 
00020001 
00270000 
00020002 
00270000 
00210000 
0004002A 
0004001A 
002F0000 
00030001 
00020005 
00020003 
00270000 
00280000 
002A0000 
00020007 
00020002 
00270000 
00020005 
00270000 
00140000 
00280000 
002AOOOO 
00040038 
002EOOOO 


1^3 


■   Wl           u 

fcNI 

43     0 

IOC 

44     0 

LOC 

45     0 

LOO 

46     0 

STO 

47     0 

DEL 

48     0 

LOC 

49     0 

LOC 

50     0 

LOD 

51     0 

LOC 

52     0 

LOO 

53     0 

MUL 

54     0 

STO 

55     0 

DEL 

56     0 

ENT 

57     0 

LOC 

58     0 

LOC 

59     0 

LOO 

60     0 

LOC 

61     0 

LOD 

62     0 

MUL 

63     0 

STO 

64     0 

DEL 

65     0 

LOC 

66     0 

LOD 

67     0 

LOC 

68     0 

LOD 

69     0 

GTR 

70     0 

XIT 

71     0 

XIT 

72     0 

BSC 

73     0 

ENT 

74     0 

LOC 

75     0 

INT 

76     0 

STO 

77     0 

DEL 

78     0 

LOC 

79     0 

LOC 

80     0 

LOD 

61     0 

STO 

82     0 

DEL 

83     0 

LOC 

84     0 

LOC 

85     0 

LOD 

86     0 

LOC 

87     0 

LOD 

88     0 

MUL 

89     0 

STO 

90     0 

DEL 

91     0 

XIT 

92     0 

BRS 

93     0 

ENT 

94     0 

LOC 

95     0 

INT 

96     0 

STO 

97     0 

DEL 

98     0 

LOC 

99     0 

LOC 

100    0 

LOD 

101    0 

STO 

102    0 

DEL 

103    0 

LOC 

104    0 

LOC 

105    0 

LOD 

106    0 

LOC 

107    0 

LOD 

108    0 

MUL 

109    0 

STO 

110    0 

DEL 

111    0 

ENT 

112    0 

LOC 

113    0 

LOC 

114    0 

LOD 

115    0 

LOC 

116    0 

LOD 

117    0 

MUL 

118    0 

STO 

119    0 

DEL 

120    0 

LOC 

121    0 

LOC 

122    0 

LOD 

123    0 

LOC 

124    0 

LOD 

125    0 

MUL 

126    0 

STO 

127    0 

DEL 

***«**««****, 

ne»*  n«*H*( 

<*< 

1 

UUU3UUU1 

4 

00020004 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002AGOOO 

6 

00020006 

4 

00020004 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

1 

00030001 

8 

00020008 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

93 

0004005D 

73 

00040049 

0 

002F0000 

1 

00030001 

3 

00020003 

3 

00050003 

0 

00280000 

0 

002A0000 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

002A0000 

7 

00020007 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

0028C000 

0 

002AOOOO 

111 

0004G06F 

0 

OO2E0OOO 

1 

00030001 

2 

00020002 

4 

00050004 

0 

00280000 

0 

OO2A000O 

4 

00020004 

2 

00020002 

0 

00270000 

0 

00280000 

0 

0O2A00OO 

6 

00020006 

4 

00020004 

0 

Q0270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A00OO 

1 

00030001 

8 

00020008 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002AJ000 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

**«**if  1 

y****«<i<<*<t# 

*«.************************ 


1/(4 


BASIC    BLOCK    HI 

BEGINNING    AT    0,     ENDING    AT    0 
BLOCK    TRAVERSED    0    TIMES 
0    REFERENCES: 


***E 

N  D    OF 

B+2 

0 

LOC 

&*3 

0 

INT 

B*4 

0 

STO 

B*5 

0 

DEL 

B+6 

0 

LOC 

B  +  7 

0 

INT 

B  +  8 

0 

STO 

B+9 

0 

DEL 

BUO 

0 

LOC 

B  +  ll 

0 

LOC 

B  +  12 

0 

LOO 

B  +  13 

0 

LOC 

B  +  14 

0 

LOO 

B  +  15 

0 

MUL 

BH6 

0 

STO 

B<-17 

0 

DEL 

B  +  18 

0 

LOC 

B  +  19 

0 

LOD 

B*20 

0 

LOC 

B  +  21 

0 

LOD 

B  +  22 

0 

GTR 

B  +  23 

0 

XIT 

B+24 

0 

XIT 

B+25 

0 

BSC 

L  E  T  E 

TABLE 

D  U  M  P*** 

2 

00020002 

1 

00050001 

0 

00280000 

0 

002A0000 

3 

00020003 

2 

00050002 

0   * 

00280000 

0 

OO2A0O00 

1 

00020001 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

42 

0004002A 

26 

0004001A 

0 

OO2F0000 

INITIAL    CURRENT    OPTIMIZED    PC.OL    TO    BE    USED    FOR      BLOCKS    2     IS: 

C< 126:129,*, 133)       C < 133 : 128,*, 135 )       All, 133, 133)       A<3, 129,129)       A(2,128,128) 

1) 


CONTROL  AT 

26,  FROM  BLK  1 

C+26    0 

ENT 

C 

B  +  27    0 

LOC 

B  +  28    0 

LOC 

B+29    0 

LOO 

B+30    0 

STO 

B  +  31    0 

DEL 

B+32    0 

LOC 

B«-33    0 

LOC 

B+34    0 

LOO 

B+35    0 

LOC 

B*36    0 

LOD 

B+3  7    0 

MUL 

B+38    0 

STO 

B  +  39    0 

DEL 

B+4  0    0 

XIT 

B*41    0   . 

BRS 

TO  BLK  2  (PASS 

132 

00038084 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

00240000 

7 

00020007 

2 

00020002 

0 

00270000 

5 

00020005 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002&0000 

56 

00040038 

0 

002E0000 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    8E    USED    FOR       BLOCK*    3     IS: 

C( 133:128,*. 135)       C (  1  28 :  129, * ,  133)       A(7,133,133)       A(5, 129,129) 

A(3, 129,129)       A(2, 128,128) 

FROM    BLK    2 


At  1,133,133) 


CONTROL  AT 

56, 

C+56 

0 

ENT 

B  +  57 

0 

LOC 

B+58 

0 

LOC 

B+59 

0 

LOD 

B+60 

0 

LOC 

B+61 

0 

LOD 

B*62 

0 

MUL 

B+63 

0 

STO 

B+64 

0 

DEL 

B+65 

0 

LOC 

B+66 

0 

LOD 

B+67 

0 

LOC 

B+68 

0 

LOD 

B*69 

0 

GTR 

B  +  70 

0 

XIT 

B  +  71 

0 

XIT 

B+72 

0 

BSC 

TO  BLK  3  (PASS  1) 

137 

00038089 

8 

00020008 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00280000 

0 

O02A0000 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

93 

00040050 

73 

00040049 

0 

002FOOOO 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK*    4     IS: 
CI  12b: 129,*, 133)       C (  133 : 128, * ,  135)       A(8, 133,133)       A(7, 133,133) 
Ad, 133, 133)       A(3, 129,129)       A(2,128,126) 


A(5( 129,129) 


CONT 

ROL  AT 

73,  FROM  BLK  : 

i  TO  BLK  4  (PASS  1) 

C*73 

0 

ENT 

C 

142 

0003808E 

B  +  74 

0 

LOC 

3 

00020003 

B+75 

0 

INT 

3 

00050003 

B*76 

0 

STO 

0 

00280000 

6  +  77 

0 

DEL 

0 

002AOOOO 

B*78 

0 

LOC 

5 

00020005 

Hf1; 


B*/*y 

U 

LUt 

B  +  60 

0 

LOO 

B*81 

0 

STO 

B  +  82 

0 

DEL 

B+83 

0 

LUC 

B*84 

0 

LOC 

B*85 

0 

LUD 

B*86 

0 

LUC 

B*87 

0 

LUO 

B*88 

0 

MUL 

B+89 

0 

STU 

B+90 

0 

DEL 

B»91 

0 

XI  I 

B*92 

0 

BKS 

5 

0 

0 

0 

7 

2 

0 

3 

0 

0 

0 

0 

HI 

0 


00270000 
00280000 
O02A0OO0 
00020007 
00020002 
00270000 
00020003 
00270000 
00140000 

1fto£60000 
OO2A0000 

«0004006F 
D02E0000 


INITIAL    CURRENT    UPTIMIZEO    PUUL    TO    BE    USED 
C(  133: 128,*, 135J       C (  128  :  129 , * ,  133 )       C1128: 
A(5il30tl30)       A<3, 130,1301       A{8, 133,133) 


CONTROL  AT 

111 

C  +  l  1 1 

0 

ENT 

B*112 

0 

LOC 

B+113 

0 

LOC 

B  +  114 

0 

LOD 

B  +  115 

0 

LOC 

B  +  116 

0 

LOD 

B  +  117 

0 

MUL 

B  +  118 

0 

STU 

B  +  119 

0 

DEL 

B  +  120 

0 

LUC 

B  +  121 

0 

LOC 

B  +  122 

0 

LOD 

B  +  123 

0 

LUC 

B+124 

0 

LUD 

B  +  125 

0 

MUL 

B  +  126 

0 

STU 

B  +  127 

0 

DEL 

FROM 


8LK 


4  TO  Bt 

.K  5  (PASS 

147 

00038093 

8 

00020008 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

FOR      BLOCK*    5    IS: 

130,*, 137)       A(7, 137,1371 

All, 133, 133)        A<2, 1*8,128) 


1) 


FINAL    OPTIMIZATION    RESULTS 


OPTiMIZAiIUN    AT     15 

(128,129115,133) 

OPTIMIZATIUN    AT    22 

(133,128122,135) 

OPTIMIZATIUN  AT  37 

(128,129115,133) 

OPTIMIZATION  AT  62 

(128,129115,133) 

OPTIMIZATION    AT    69 

(133, 1281 22,135) 

OPTIMIZATION    AT    88 

(130,128188,137) 

OPTIMIZATION    AT     117 

(130,128188,137) 

OPTIMIZATION    AT     125 

(130, 128188,  137) 


CONSTANT  PROPAGATION 

CONSTANT  PROPAGATION 

COMM  SUBEXP  ELIM  £  CONS  PROP 

COMM  SUBEXP  ELIM  L    CONS  PROP 

COMM  SUBEXP  ELIM  L   CONS  PROP 

CONSTANT  PROPAGATION 

COMM  SUBEXP  ELIM  £  CONS  PROP 

COMM    SUBEXP    ELIM    I    CONS    PROP 


****       FORMATTED    INTERMEDIATE    CODE    DUMP       **** 
LOC    OFF  OP    CODE  CNS    ADR  RAW    CODE  OPTIMIZATION 

SET  /ETC  TYPE 

******* *******#********#*******^ *********************** *************** 


0 

0 

ENT 

128 

00030080 

1 

0 

TOGGLE 

257 

000B0101 

2 

0 

LOC 

2 

00020002 

3 

0 

INT 

1 

00050001 

4 

0 

STO 

0 

00280000 

5 

0 

DEL 

0 

OO2A00OO 

6 

0 

LOC 

3 

00020003 

7 

0 

INT 

2 

00050002 

8 

0 

STO 

0 

00260000 

9 

0 

DEL 

0 

002A0000 

10 

0 

LOC 

I 

00020001 

11 

0 

LUC 

2 

00020002 

12 

0 

LOD 

0 

00270000 

13 

0 

LOC 

3 

00020003 

14 

0 

LOD 

^ 

0 

00270000 

IhG 


15 

u 

MUL 

16 

0 

STO 

17 

0 

DEL 

18 

0 

LOC 

19 

0 

LOO 

20 

0 

LOC 

21 

0 

LOO 

22 

0 

GTR 

23 

0 

XIT 

24 

0 

XIT 

25 

0 

8SC 

26 

0 

ENT 

27 

0 

LCC 

28 

0 

LOC 

29 

0 

LOD 

30 

0 

STO 

31 

0 

DEL 

32 

0 

LOC 

33 

0 

LOC 

34 

0 

LOD 

35 

0 

LOC 

36 

0 

LOD 

37 

0 

MUL 

38 

0 

STO 

39 

0 

DEL 

40 

0 

XIT 

41 

0 

BRS 

42 

0 

ENT 

43 

0 

LOC 

44 

0 

LOC 

45 

0 

LOD 

46 

0 

STO 

47 

0 

DEL 

48 

0 

LOC 

49 

0 

LOC 

50 

0 

LOD 

51 

0 

LOC 

52 

0 

LOD 

53 

0 

MUL 

54 

0 

STO 

55 

0 

DEL 

56 

0 

ENT 

57 

0 

LOC 

58 

0 

LOC 

59 

0 

LOD 

60 

0 

LOC 

61 

0 

LOD 

62 

0 

MUL 

63 

0 

STO 

64 

0 

DEL 

65 

0 

LOC 

66 

0 

LOD 

67 

0 

LOC 

68 

0 

LOD 

69 

0 

GTR 

70 

0 

XIT 

71 

0 

XIT 

72 

0 

6SC 

73 

0 

ENT 

74 

0 

LOC 

75 

0 

INT 

76 

0 

STO 

77 

0 

DEL 

78 

0 

LOC 

79 

0 

LOC 

80 

0 

LOD 

81 

0 

STO 

82 

0 

DEL 

83 

0 

LOC 

84 

0 

LOC 

85 

0 

LOD 

86 

0 

LOC 

87 

0 

LOD 

88 

0 

MUL 

89 

0 

STO 

90 

0 

DEL 

91 

0 

XIT 

92 

0 

BRS 

93 

0 

ENT 

94 

0 

LOC 

95 

0 

INT 

96 

0 

STO 

97 

0 

DEL 

98 

0 

LOC 

99 

0 

LOC 

100 

0 

LOD 

101 

0 

STO 

102 

0 

DEL 

IU24 

UIH4B<»<JU 

0 

00280000 

0 

002A0000 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

1020 

002183FC 

42 

0004002A 

26 

0004001A 

0 

002F0000 

132 

00030084 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

002AOOOO 

7 

00020007 

2 

00020002 

0 

00270000 

5 

00020005 

0 

00270000 

1012 

001483F4 

0 

00280000 

0 

002A0000 

56 

00040038 

0 

002E0000 

I 

00030001 

4 

00020004 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002AOOOO 

6 

00020006 

4 

00020004 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

0O2A0OOO 

137 

000300S9 

8 

00020008 

3 

00020003 

0 

r\  r\  t  ~r  r\  r\  r\  r\ 

2 

00020002 

0 

00270000 

1004 

001483EC 

0 

00280000 

0 

002AOOOO 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

1000 

002183E8 

93 

0004005D 

73 

00040049 

0 

002F0000 

142 

0003008E 

3 

00020003 

3 

00050003 

0 

00280000 

0 

OO2A0OOO 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

OO2A00OO 

7 

00020007 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

992 

001483E0 

0 

00280000 

0 

002AOOOO 

HI 

0004005F 

0 

002E0000 

1 

00030001 

2 

00020002 

4 

00050004 

0 

00280000 

0 

002A0000 

4 

00020004 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002A0000 

LU.N5IANI   f'KUKAL.AI  iUN 


CONSTANT  PROPAGATION 


COMM  SU3EXP  ELIM  £  CONS  PROP 


COMM  SUBEXP  ELIH  I    CONS  PROP 


COMM  SUBEXP  ELIM  £  CONS  PROP 


CONSTANT  PROPAGATION 


14? 


kU3 

U 

LUL 

104 

0 

LOC 

105 

0 

LOO 

106 

0 

LUC 

107 

0 

LOO 

108 

0 

MUL 

109 

0 

STO 

110 

0 

OEL 

111 

0 

ENT 

112 

0 

LOC 

113 

0 

LOC 

114 

0 

LOO 

115 

0 

LOC 

116 

0 

LOO 

117 

0 

MUL 

118 

0 

STO 

119 

0 

DEL 

120 

0 

LOC 

121 

0 

LOC 

122 

0 

LOD 

123 

0 

LOC 

124 

0 

LCD 

125 

0 

MUL 

126 

0 

STO 

127 

0 

DEL 

6 

UUU^UUUb 

4 

00020004 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

OO2A00OO 

147 

00030093 

8 

00020008 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

982 

00148306 

0 

00280000 

0 

002AOOOO 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

978 

001483D2 

0 

00280000 

0 

OO2A00OO 

COMM  SUBEXP  ELIM  C  CONS  PROP 


##$#**********************************************#******************* 


COMM    SUBEXP   ELU    £    CONS    PROP 


FINAL    OPTIMIZATION    POOL    FOR    EACH    BLOCK    IS: 


FINAL    POCL    FOR       BLOCK*    1    IS: 
(NULL) 


FINAL    POCL    FOR      BLOCKS    2    IS: 

C< 128:129,*, 133)      C(  133  :  128,*, 135)       A(l,133,133)       A<3,129,129)       A(2,128,128) 

FINAL    POCL    FOR       BLOCKS    3    IS: 

C1133:128,*,135)      C (  128 :  129, *, 133)      A(7,133,133)       A(5, 129,129)       A(l,133,133) 

A(3,129,129)       A<2. 128,128] 

FINAL    POCL    FOR      BLOCK/'    4    IS: 

C( 128:129,*, 133)       C (  133 : 128,*, 135)       A(8,133,133)       A(7, 133,133)       A<5, 129, 1291 

All, 133, 133)       A(3, 129,129)       A{ 2,  128,128) 

FINAL  POOL  FOR   BLOCKS  5  IS: 

C(  133:128,*, 135)   C (  128 :  129, * , 133)   C ( 1 28: 130, *, 137)   A(7,137,137) 

A(5,130,130)   AI3, 130,130)   A(8,133,133)   All, 133, 133)   A(2,128,128) 


BASIC  BLOCK 
BEGIN 
BLOCK 

0  REF 
BASIC  BLOCK 

BEGIN 
BLOCK 

1  REF 

1 

BASIC  BLOCK 

BEGIN 

BLOCK 

1  REF 

2 

BASIC  BLOCK 

BEGIN 

BLOCK 

1  REF 

3 

BASIC  BLOCK 

BEGIN 

BLOCK 

1  REF 

4 


#1 
NING  AT  0,  ENDING  AT  25 

TRAVERSED  1  TIMES 
ERENCES: 

#2 
NING  AT  26,  ENDING  AT  41 

TRAVERSED  1  TIMES 
ERENCES: 

U2> 
NING  AT  56,  ENDING  AT  72 

TRAVERSED  1  TIMES 
ERENCES: 

#4 

NING  AT  73,  ENDING  AT  92 

TRAVERSED  I  TIMES 
ERENCES: 

#5 
NING  AT  111,  ENDING  AT  127 

TRAVERSED  1  TIMES 
ERENCES: 


BLOCK  SUMMARY  DATA: 


148 


BLOCK  NUMBER  NUMBER  OF  PASSES 

1  1 

2  1 

?  1 

5  1 

TOTAL    NUMBER    OF    BLOCKS    PROCESSED    WAS    5 

USING    THE    LAST-IN-FIRST-OUT       BLOCK    SELECTION    ALGORITHM. 

TIME    FOR    THE    OPTIMIZATION    WAS    0.170    SECONDS. 

***CODE    SYNTHESIS    FILTER    IS    COMPLETE*** 


1^9 


CARD  IBLI 
SEXECUTE 


3 
4 
5 

6 
7 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 


SYL 
0 

1 
1 
7 
17 
17 
22 
26 
31 
35 
39 
47 
47 
47 
50 
54 
59 
67 
68 
73 
81 
81 
81 
84 


[COMMENT      TEST  PROGRAM  #    6 

BEGIN  LOCAL  A,  B  ,C  ,D ,E , F ,G , H, I , J  ; 
READIA,  Bl; 
WHILE  A  GTR  B  DO 
BEGIN 

IF  A  GTR  B  THEN 

BEGIN 

IF  A 


E 
H 

END 

ELSE 

BEGIN 


GTR 
BEGIN 

B  :- 
A  :  = 
END 
ELSE 
BEGIN 

B  :  = 
D  :  = 
F  :  = 
END; 
:  b; 
■  e  *  c; 


B  THEN 

10; 

B  *  C; 


20; 
B; 
D  * 


J  :  = 


30; 
C  * 


b; 


96  END; 

97  E  :=  C: 
102   I  :=  8 
110   END; 
113   END 
113   EOF 

CODE  FILE  COPIED  (113  WORDS) 
CONSTANT  TABLE  COPIED  (o  WORDS) 
2  RECORDS  WRITTEN  INTO  FILE  1 
END  OF  COMPILATION  FEBRUARY  12, 

32  CARDS  l-.'EP.E  READ. 

NO  ERRORS  WERE  DETECTED. 


1975.   CLOCK  TIME  =  20:42:29.46. 


1^0 


***CODE    SYNTHESIS    FILTER*** 

BLOCK    SELECTION    METHOD   WILL    BE    LAST- IN-F IRST-OUT 

***C    OMPLETE  TABLE  DUM    P*** 

DUMP    REQUESTED    FRCM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


***T    ABLE 


DUM    P***    AT    LOCATION 


CONSTANTS  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


CONSYM 
CCNTYPE 
CONVAL 
CONINT 


10  120  130 

INT  INT  INT 

1  14  115  116 

10  20  130 


ADDR  TABL  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 
(EMPTY) 

VALUE  STACK  (TOP  AT  127) 


CONT  STK   <1>   <2>   <3>   <4>   < 5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 

BLOCK#    10 
ENTRY     |0 


EXEC  STAC  <l>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 
(EMPTY) 


****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF 

OP  CODE     CNS  ADR     RAW  CODE      OPTIMIZATION 

SET 

/ETC                       TYPE 

****#**#**■ 

J.*******************:**)":***************^********:*********** 

0      0 

ENT               | 

C 

114 

00038072 

1      0 

TOGGLE 

257 

000B0101 

2      0 

LOC 

1 

00020001 

3      0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6      0 

INT 

0 

00050000 

7      0 

STD 

0 

00290000 

8      0 

ENT 

1 

00030001 

9      0 

LOC 

1 

00020001 

10     0 

LOD 

0 

00270000 

11    o 

LOC 

2 

00020002 

12     0 

LOD 

0 

00270000 

13     0 

GTR 

0 

00210000 

- 

14     0 

XIT 

113 

00040071 

15     0 

XIT 

17 

00040011 

16     0 

BSC 

0 

002F0O00 

17     0 

ENT 

1 

00030U01 

18     0 

LOC 

1 

00020001 

19     0 

LOD 

0 

00270000 

20     0 

LOC 

2 

00020002 

21     0 

LOD 

0 

00270000 

22     0 

GTR 

0 

00210000 

23     0 

XIT 

84 

00040054 

24     0 

XI  T 

26 

0004001  A 

25     0 

BSC 

0 

002FOOOO 

26     0 

ENT 

1 

00030001 

27     0 

LOC 

1 

00020001 

28     0 

LOD 

0 

00270000 

29     0 

LOC 

2 

00020002 

30     0 

LOD 

0 

00270000 

31     0 

GTR 

0 

00210000 

32     0 

XIT 

50 

000<V0032 

33     0 

XIT 

35 

00040023 

34     0 

BSC 

0 

OO2F0OOO 

35     0 

ENT 

1 

00030001 

36     0 

LOC 

2 

00020002 

37     0 

INT 

1 

00050001 

38     0 

STO 

0 

00280000 

39     0 

DEL 

0 

002AOOOO 

40     0 

LOC 

1 

00020001 

41     0 

LOC 

2 

00020002 

hi. 

u 

LUU 

0 

uu^  ruuuu 

43 

0 

LOC 

3 

00020003 

44 

0 

LOD 

0 

00270000 

45 

0 

MUL 

0 

00140000 

46 

0 

STO 

0 

00280000 

47 

0 

DEL 

0 

002A0000 

48 

0 

XIT 

68 

00040044 

49 

0 

BRS 

0 

002E0000 

50 

0 

ENT 

1 

00030001 

51 

0 

LOC 

2 

00020002 

52 

0 

INT 

2 

00050002 

53 

0 

STO 

0 

00280000 

54 

0 

DEL 

0 

OO2A00O0 

55 

0 

LOC 

4 

00020004 

56 

0 

LOC 

2 

00020002 

57 

0 

LOD 

0 

00270000 

58 

0 

STO 

0 

00280000 

59 

0 

DEL 

0 

0O2A0000 

60 

0 

LOC 

6 

00020006 

61 

0 

LOC 

4 

00020004 

62 

0 

LOD 

0 

00270000 

63 

0 

LOC 

3 

00020003 

64 

0 

LOD 

0 

00270000- 

65 

0 

MUL 

0 

00140000 

66 

0 

STO 

0 

00280000 

67 

0 

DEL 

0 

002A0000 

68 

0 

ENT 

1 

00030001 

69 

0 

LOC 

5 

00020005 

70 

0 

LOC 

2 

00020002 

71 

0 

LOD 

0 

00270000 

72 

0 

STO 

0 

00280000 

73 

0 

DEL 

0 

002AOOOO 

74 

0 

LOC 

8 

00020008 

75 

0 

LOC 

5 

-  00020005 

76 

0 

LOD 

0 

00270000 

77 

0 

LOC 

3 

00020003 

78 

0 

LOD 

0 

00270000 

79 

0 

MUL 

0 

00140000 

80 

0 

STO 

0 

00280000 

81 

0 

DEL 

0 

002A0000 

82 

0 

XIT 

97 

00040061 

83 

0 

BRS 

0 

002E0000 

84 

0 

ENT 

1 

00030001 

65 

0 

LOC 

2 

00020002 

86 

0 

INT 

3 

00050003 

87 

0 

STO 

0 

00280000 

88 

0 

DEL 

0 

002AOOOO 

89 

0 

LOC 

10 

0002000A 

90 

0 

LOC 

3 

00020003 

91 

0 

LOD 

0 

00270000 

92 

0 

LOC 

2 

00020002 

93 

0 

LOD 

0 

00270000 

94 

0 

MUL 

0 

00140000 

95 

0 

STO 

0 

00280000 

96 

0 

DEL 

0 

002A0000 

97 

0 

ENT 

1 

00030001 

98 

0 

LOC 

5 

00020005 

99 

0 

LOC 

3 

00020003 

100 

0 

LOD 

0 

00270000 

101 

0 

STO 

0 

00280000 

102 

0 

DEL 

0 

002A0000 

103 

0 

LOC 

9 

00020009 

104 

0 

LOC 

2 

00020002 

105 

0 

LOD 

0 

00270000 

106 

0 

LOC 

3 

00020003 

107 

0 

LOD 

0 

00270000 

108 

0 

MUL 

0 

00140000 

109 

0 

STO 

0 

00280000 

110 

0 

DEL 

0 

002A0000 

111 

0 

XIT 

8 

00040008 

112 

0 

BRS 

0 

002E0000 

113 

0 

ENT 

1 

00030001 

******: 

tc****#J 

***#********> 

<*  = 

[:*$**#Jfti 

c** *$**#*** 

c*******:*:****************** 


BASIC    BLOCK    #1 

BEGINNING    AT    0,     ENDING    AT    0 
BLOCK    TRAVERSED    0    TIMES 
0    REFERENCES: 


***E    NO        OF 


COMPLETE 


TABLE 


0    U    M    P*** 


B*2 

0 

LOC 

B+3 

0 

INT 

B+4 

0 

STD 

B*5 

0 

LOC 

B+6 

0 

INT 

B*7 

0 

STD 

00020001 
00050000 
00290000 
00020002 
00050000 
00290000 


152 


b*o 


I  tNI 


I   II 


|  00U3UUU1    | 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  2  IS: 


AI2.M16I 

A(  1,*,117) 

CONTROL  AT  8,  FROM  BLK  1  TO  BLK 

2  (PASS  1) 

C+8     0 

ENT 

C 

118 

00038076 

B*9     0 

LOC 

1 

00020001 

B*10    0 

LOD 

0 

00270000 

B*ll    0 

LOC 

2 

00020002 

B*12    0 

LOD 

0 

00270000 

B»13    0 

GTR 

0 

00210000 

B*14    0 

XIT 

113 

00040071 

B  +  15    0 

XIT 

17 

00040011 

6<16    0 

BSC 

0 

002F0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
CI  117: 118,* , 119)   A(2,*,118)   All,*, 117) 


BLOCK*  3  IS! 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  4  IS: 
C( 1 17: 118,*, 1 19 )   A(2,*,118)   All,*, 117) 

FROM  BLK  2 


CONTROL  AT 

17, 

C  +  17 

0 

ENT 

B  +  18 

0 

LOC 

B  +  19 

0 

LOD 

B+20 

0 

LCC 

B+21 

0 

LOD 

B+22 

0 

GTR 

B+23 

0 

XIT 

B+24 

0 

XIT 

B+25 

0 

BSC 

TO  BLK  4  (PASS  I) 

128 

00038080 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

84 

00040054 

26 

0004001A 

0 

002F0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  5  IS: 
C<  117:118,*, 119)   A(2,*,118)   All,*, 117) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C(117:ll8,*,119)   A(2,*,118)   All,*, 117) 


BLOCK*  6  IS: 


CONTROL  AT 

26, 

C+26 

0 

ENT 

B*27 

0 

LOC 

B+26 

0 

LGD 

B*29 

0 

LOC 

BOO 

0 

LOD 

B+31 

0 

GTR 

B  +  32 

0 

XIT 

B*33 

0 

XIT 

B*34 

0 

BSC 

FROM  BLK  4  TO  BLK 
138 
I 
0 
2 

0- 
0 

50 
35 
0 


6  (PASS  1) 

0003808A 

00020001 

00270000 

00020002 

00270000 

00210000 

00040032 

00040023 

002FOOOO 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C(  117:118,*, 119)   AI2,*,118)   Ad,*, 117) 


BLOCKS    7    IS: 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR      BLOCK*    8    IS: 
C( 117: 118,*, 119)       A(2,*,113)       A(l,*,117) 


CONTROL  AT 


C+35 
B+36 
6*37 
B+38 
B*39 
B+40 
B+41 
B*42 
B+43 
B*44 
B+45 
B+46 
B+47 
B+48 
B*49 


35,  FROM 

ENT 

LOC 

INT 

STO 

DEL 

LOC 

LOC 

LOD 

LOC 

LOD 

MUL 

STO 

DEL 

XI  T 

BRS 


BLK  6  TO  BLK  8  (PASS  1 ) 


148 

00038094 

2 

00020002 

1 

00050001 

0 

00280000 

0 

002A0000 

1 

00020001 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

68 

00040044 

0 

002E0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  9  IS: 

C(  1 17:  118,*,  119)   C(114:l20,*,121)   Ml,*, 121]   A(3,*,120)   A(2,114,114) 


CONTROL  AT 


C+68 
B*69 
B  +  70 
B+71 
B+72 
B*73 
B*74 
B  +  75 


68, 
ENT 
LOC 
LOC 
LOD 
STO 
DEL 
LOC 
LOC 


FROM  BLK  8 


TO  BLK  9  (PASS 

153 

00038099 

5 

00020005 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002A00J0 

8 

0002000d 

5 

00020005 

i) 


153 


B*77 
B+78 
B+79 
B*80 
B+81 
B+82 
B+83 

INITIAL  CURRENT  OPTIMIZED  PCOL  TO  BE  USED  FOR 
C<  114:120,*, 121 )   C(  117:  118,*,  119)   A(8,*,121) 
A<3,*,120)   A(2, 114*114) 


u 

LUU 

0 

LOC 

0 

LOO 

0 

MUL 

0 

STO 

0 

DEL 

0 

XIT 

0 

BRS 

U 

OU^/UUUO 

3 

00020003 

0 

00270000 

0 

00140000 
00280000 

0 

0 

002A0000 

97 

00040061 

0 

002EOOOO 

BLOCK*  10  IS: 
A(5,114,114) 


A<1,*,121) 


CONTROL    AT 

97, 

FROM    BLK    <5 

C+97         0 

ENT 

C 

B+98         0 

LOC 

B+99         0 

LOC 

B+100       0 

LOD 

B  +  101       0 

STO 

B«-102       0 

DEL 

B  +  103       0 

LOC 

B  +  104      0 

LOC 

B  +  105      0 

LOD 

BU06      0 

LOC 

B  +  107       0 

LOD 

Bt-108      0 

MUL 

B  +  109      0 

STO 

B+110      0 

DEL 

B*lll       0 

"XIT 

8*112       0 

BRS 

BEFORE    THE    b 

1EET 

CPERATK 

m: 

TO  BLK 
158 
5 
3 
0 
0 
0 
9 
2 
0 
3 
0 
0 
0 
0 
8 
0 


10  (PASS 

0003809E 
00020005 
00020003 
00270000 
00280000 
OO2A000O 
00020009 
00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
002A0000 
00040008 
002EOOOO 


1) 


OUTPUT    PCOL    FROM    BLOCK*     10    IS: 

C(  117: 118,*, 119)       C(  114:120,*, 121)       A(9,*,121)       A(5,*,120)       A{8,*,121) 

AUf*f121>       A(3,*,120)       A(2,114,114) 

CURRENT    POOL    FOR    BLOCK*    2    IS: 
A(2,*,118)       A(l,*,117) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POCL    IS    THE    SAME    AS    OLD    CURRENT    POOL 


CONTROL    AT 

50,     FROM    6LK    6    TO    BLK 

C+50         0 

ENT 

C 

14-3 

B  +  51          0 

LOC 

2 

B*52         0 

INT 

2 

B*53         0 

STO 

0 

B+54         0 

DEL 

0 

B+55         0 

LOC 

4 

B*56         0 

LOC 

2 

B*57         0 

LOD 

0 

B+58         0 

STO 

0 

B+59         0 

DEL 

0 

B+60         0 

LOC 

6 

B+61         0 

LOC 

4 

B+62         0 

LOD 

0 

B+63         0 

LOC 

3 

B+64         0 

LOD 

0 

B*65         0 

MUL 

0 

B*66         0 

STO 

0 

B+67         0 

DEL 

0 

B+68         0 

ENT 

C 

153 

7  (PA 

00038 
00020 
00050 
00280 
002A0 
00020 
00020 
00270 
00280 
002A0 
0002  0 
00020 
00270 
00020 
00270 
00140 
00280 
002A0 
00038 


BEFORE  THE  MEET  OPERATION 


SS  ; 

08F 
002 
002 
000 
000 
004 
002 
000 
000 
000 
006 
004 
000 
003 
000 
000 
000 
000 
099 


OUTPUT  POOL  FROM  BLOCK*  7  IS: 

C( 117:118,*, 119)   C( 115:124,*, 125) 

A(2,  115,115)   A(l,*,117) 


A(3,*,124)   A(6,*,125)   A(4,115,115) 


CURRENT  POOL  FOR  BLOCK*  9  IS: 

C( 117:118,*, 119)   C(  114: 120,*,  121) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOCK*  9  IS: 

Ad,*, 126)   A13,*,127)   A(2,*,128)   C  (  1  28  :  127,*  ,  129) 


A(l,*,121)   A(3,*,120)   A(2,114,114) 


CONTROL  AT  68,  FROM  8LK  7  TO  BLK 


C+68 
B*69 
B  +  70 
B*71 
B  +  72 
B  +  73 


ENT 
LOC 
LOC 
LOO 
STO 
DEL 


153 

5 

2 

0 

0 

0 


9  (PASS  2) 

00038099 
00020005 
00020002 
00270000 
00280000 
002A0000 


154 


B*75 
B*76 
B*77 
B+78 
B+79 
B*80 
B*81 
B  +  82 
B*83 


BEFORE    THE   MEET    OPERATION: 


0 

LUL 

0 

LOC 

0 

LOO 

0 

LOC 

0 

LOO 

0 

Mill 

0 

STO 

0 

OEL 

0 

XIT 

0 

BRS 

OUTPUT    POOL    FROM 
C(  128:127, *t129> 


BLOCKS  9  IS: 
A( 8,*, 129) 


B 

UUU^UUUM 

5 

00020005 

0 

00270000 

3 

00020003 

0 

00270000 

992 

0G1483E0 

0 

00280000 

0 

002A0000 

97 

00040061 

0 

OO2E000O 

COMM  SUBEXP  ELIM 


A(5,*,128)       A(lt*tl26)       A(3,*,127)       A(2,*,128) 


CURRENT    POOL    FOR    BLOCK#     10    IS: 

C(  114:120,*, 121 )      C(  117:  118,*,  119) 

A(3,*,120)       A(2,114,U4) 

AFTER   PERFORMING    THE    MEET    OPERATION: 


A(8,*,121)   A(5,114,114)   A(l,*,121) 


NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOCKS  10  IS: 

A(8,*,130)       A<5,*,131)       Ail, *, 132)       A(3,*,133)       A(2,*,131) 

TO    BLK    10    (PASS    2 


CONTROL  AT 

97,  FROM  BLK  c. 

C*97    0 

ENT 

C 

B+98    0 

LOC 

B+99    0 

LOC 

B+100   0 

LOO 

B  +  101   0 

STO 

B+102   0 

DEL 

B+103   0 

LOC 

B+104   0 

LOC 

B  +  105   0 

LOO 

B+106   0 

LOC 

B*107   0 

LOD 

B+108   0 

MUL 

c 

BH09   0 

STO 

BH10   0 

DEL 

B+lll   0 

XIT 

BU12   0 

BRS 

153 

0003809E 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

002A000O 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

984 

001483D8 

0 

00280000 

0 

002AOOOO 

8 

00040008 

0 

002E0000 

COMM    SUBEXP    ELIM 


BEFORE    THE    MEET    OPERATION:      - 

OUTPUT    POOL    FROM    BLOCKS     10    IS: 

C<  131:133,*, 134)       A(9,*,134)       A(5,*,133)       A(8,*,130)       A(l,*,132)       A(3,*,133) 

A(2i*,131) 


CURRENT    POOL    FOR    BLOCK#    2    IS: 
A(2,*,122)       A(i,*,123) 

AFTER   PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME    AS    OLD   CURRENT    POOL 

FROM    BLK    4 


CONTROL  AT 

84, 

C  +  84 

0 

ENT 

B  +  85 

0 

LOC 

B+86 

0 

INT 

B+87 

0 

STO 

B  +  68 

0 

OEL 

B  +  89 

0 

LOC 

B+90 

0 

LOC 

B+91 

0 

LOO 

Bt92 

0 

LOC 

B+93 

0 

LOD 

B+94 

0 

MUL 

B+95 

0 

STO 

8*96 

0 

DEL 

B*97 

0 

ENT 

TO  BLK  5  (PASS  1 ) 

133 

00038085 

2 

00020002 

3 

00050003 

0 

00280000 

0 

002AOOOO 

10 

0002000A 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

002C0000 

0 

002AOOOO 

158 

0003809E 

BEFORE    THE   MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCKS    5    IS: 

C(  117:118,*, 119)       C( 137:116,*, 13  8) 

A(l,*,117) 


A(3t*(137)       A(10,*,138)       4(2,116,116) 


CURRENT    POOL    FOR    BLOCKS    10    IS: 
A(8,*,130)       A(5,*,131)       Ad,*, 132) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT     POOL    FOR       BLOCK**    10    IS: 
Ad,*, 139)       A(3,*,140)        A(2,*,141) 


A(3,*,133)      A(2,*>131) 


155 


CONTROL  AT 

97,  FROM  BLK  5  TO  8LK  10  (PASS  3] 

C*97    0 

ENT 

C 

158 

0003809E 

B*98    0 

LOC 

5 

00020005 

B*99    0 

LOC 

3 

00020003 

6*100   0 

LOO 

0 

002  70000 

B  +  101   0 

STO 

0 

00280000 

8*102   0 

DEL 

0 

002A0000 

6*103   0 

LOC 

9 

00020009 

" 

8*104   0 

LOC 

2 

00020002 

8*105   0 

LOD 

0 

00270000 

6*106   0 

LOC 

3 

00020003 

6*107   0 

LOD 

0 

00270000 

6*108   0 

KUL 

C 

984 

00K83D8 

6*109   0 

STO 

0 

00280000 

6*110   0 

DEL 

0 

002A0000 

8*111   0 

XI  T 

8 

00040008 

8*112   0 

BRS 

0 

002E0000 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  10  IS: 

C(141:140,< 

',142)   A19,< 

',142)   A(5,*,140)   All,*, 139)   A(3,*,U0I   A(2,*,141) 

CURRENT  POOL  FOR  BLOCKS 
A(2,*,135)   A(lt*fl36) 


2    IS 


AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME    AS    OLD    CURRENT     POOL 

CONTROL    AT    113,    FROM    BLK    2    TO    BLK    3    (PASS    1) 
C  +  113      0         |ENT  J  C 1 123  |     0003807B       i 

FINAL    OPTIMIZATION    RESULTS 


OPTIMIZATION    AT    22 

(117,1181 13,119) 

OPTIMIZATION  AT  31 

(117,1181 13,119) 

OPTIMIZATION  AT  79 

(127,128145,129) 


COMM  SU8EXP  ELIM 
COMM  SUBEXP  ELIM 
COMM  SUBEXP  ELIM 


****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF 

OP  CODE     CNS  ADR     RAW  CODE 

OPTIMIZATION 

SET 

/ETC 

TYPE 

****#***#**************#*******#**##*****************##***********:**** 

0     0 

ENT 

114 

00030072 

1      0 

TOGGLE 

257 

000B0101 

2     0 

LOC 

1 

00020001 

3     0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6     0 

INT 

0 

00050000 

7     0 

STD 

0 

00290000 

8     0 

ENT 

118 

00030076 

9     0 

LOC 

1 

00020001 

10     0 

LOD 

0 

00270000 

11     0 

LOC 

2 

00020002 

12     0 

LOD 

0 

00270000 

13     0 

GTR 

1024 

00210400 

14     0 

XI  T 

113 

00040071 

15     0 

XIT 

17 

00040011 

16     0 

bSC 

0 

002F0000 

17     0 

ENT 

128 

00030080 

18     0 

LOC 

1 

00020001 

19     0 

LOD 

0 

00270000 

20     0 

LOC 

2 

000  2000  2 

21     0 

LOD 

0 

00270000 

22     0 

GTR 

C 

1016 

002183F8 

COMM  SUBEXP  ELIM 

23     0 

XIT 

84 

00040054 

24     0 

XIT 

26 

0004001  A 

25     0 

bSC 

0 

002FOOOO 

26     0 

ENT 

138 

0003008A 

27     0 

LOC 

1 

00020001 

28     0 

LOD 

0 

00270000 

29     0 

LOC 

2 

00020002 

30     0 

LOO 

0 

00270000 

31     0 

GTR 

C 

1008 

002183F0 

COMM  SUBEXP  ELIM 

32     0 

XIT 

50 

00040032 

156 


33 

u 

XI 1 

3» 

UfJU<»UU23 

34 

0 

BSC 

0 

002F0000 

35 

0 

ENT 

148 

00030394 

36 

0 

LOC 

2 

00020002 

37 

0 

INT 

1 

00050001 

38 

0 

sro 

0 

00280000 

39 

0 

DEL 

0 

002A0000 

40 

0 

LOC 

t 

1 

00020001 

41 

0 

LOC 

2 

00020002 

42 

0 

LOD 

0 

00270000 

43 

0 

LOC 

3 

00020003 

44 

0 

LOO 

0 

00270000 

45 

0 

MUL 

1000 

001403E8 

46 

0 

STO 

0 

00280000 

47 

0 

DEL 

0 

002A0000 

48 

0 

XIT 

68 

00040044 

49 

0 

BRS 

0 

002E0000 

50 

0 

ENT 

143 

0003008F 

51 

0 

LOC 

2 

00020002 

52 

0 

INT 

2 

00050002 

53 

0 

STO 

0 

00280000 

54 

0 

DEL 

0 

002A0000 

55 

0 

LOC 

4 

00020004 

56 

0 

LOC 

2 

00020002 

57 

0 

LOD 

0 

00270000 

58 

0 

STO 

0 

00280000 

59 

0 

DEL 

0 

OO2A00O0 

60 

0 

LOC 

6 

00020006 

61 

0 

LOC 

4 

00020004 

62 

0 

LOD 

0 

00270000 

63 

0 

LOC 

3 

00020003 

64 

0 

LOD 

0 

00270000 

65 

0 

MUL 

980 

001403D4 

66 

0 

STO 

0 

00280000 

67 

0 

DEL 

0 

002AO00O 

68 

0 

ENT 

153 

00030099 

69 

0 

LOC 

5 

00020005 

70 

0 

LOC 

2 

00020002 

71 

0 

LOD 

0 

00270000 

72 

0 

STO 

0 

00280000 

73 

0 

DEL 

0 

002A0000 

74 

0 

LOC 

8 

00020008 

75 

0 

LOC 

5 

00020005 

76 

0 

LOD 

0 

00270000 

77 

0 

LCC 

3 

78 

0 

LOD 

0 

00270000 

79 

0 

MUL 

C 

992 

001483E0 

80 

0 

STO 

0 

00280000 

81 

0 

DEL 

0 

002A0000 

82 

0 

XIT 

97 

00040061 

83 

0 

BRS 

0 

O02E0O00 

84 

0 

ENT 

133 

00030035 

85 

0 

LOC 

2 

00020002 

86 

0 

INT 

3 

00050003 

87 

0 

STO 

0 

00280000 

88 

0 

DEL 

0 

OO2A000O 

89 

0 

LOC 

10 

0002000A 

90 

0 

LOC 

3 

00020003 

91 

0 

LOD 

0 

00270000 

92 

0 

LOC 

2 

00020002 

93 

0 

LOD 

0 

00270000 

94 

0 

MUL 

976 

001403D0 

95 

0 

STO 

0 

00280000 

96 

0 

DEL 

0 

002A0000 

97 

0 

ENT 

158 

0003009E 

98 

0 

LOC 

5 

00020005 

99 

0 

LOC 

3 

00020003 

100 

0 

LOD 

0 

00270000 

101 

0 

STO 

0 

00280000 

102 

0 

DEL 

0 

002AOOOO 

103 

0 

LOC 

9 

00020009 

104 

0 

LOC 

2 

00020002 

105 

0 

LOO 

0 

00270000 

106 

0 

LOC 

3 

00020003 

107 

0 

LOD 

0 

00270000 

108 

0 

MUL 

984 

00140308 

109 

0 

STO 

0 

00280000 

110 

0 

DEL 

0 

002A0000 

111 

0 

XIT 

8 

00040008 

112 

0 

BRS 

0 

002E0000 

.  113 

0 

ENT 

123 

00030073 

******* 

*****J 

K***********4 

r*J 

^******* 

<*********** 

COMM  SUBEXP  ELIM 


************************* 


FINAL  OPTIMIZATION  POOL  FOR  EACH  BLOCK  IS: 


15? 


FINAL    POCL    FOR      BLOCK*    1    IS: 
(NULL) 


FINAL    POCL    FOR       BLOCK*    2    IS: 
AI2,*,143)       A(l,*fl44) 


FINAL    POCL    FOR       BLOCK*    3    IS: 
C<117:118,*,119)       A(2t*f118J       Ail,*, 117) 


FINAL    POCL    FOR      BLOCK*    4    IS: 
C(117:118t*f 119)      A(2,*,118)       All,*, 117) 


FINAL    POOL    FOR       BLOCK*    5    IS: 
C(117:ll8,*,119)       A(2,*,118)       Ad,*, 117) 


FINAL    POCL    FOR       BLOCK*    6    IS: 

C(  117:118,*, 119)       A(2i*i118)       A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  7  IS: 
C(117:118,*,119)   A(2t*ill8)   A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  8  IS: 
C(117:118,*, 119)   A(2i*tll8)   All,*, 117) 


FINAL  POCL  FOR   BLOCK*  9  IS: 

A(l,*,126)   A(3,*,127)   A12,*,128)   C( 1 28 : 127, *, 129) 


FINAL    POCL    FOR       BLOCK*    10    IS: 
All,*, 139)       A(3,*,140)        A(2,*,14i) 


BASIC  BLOCK  *1 

BEGINNING  AT  0,  ENDING  AT  8 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  *2 

BEGINNING  AT  8,  ENDING  AT  16 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  *3 

BEGINNING  AT  113,  ENDING  AT  113 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  #4 

BEGINNING  AT  17,  ENDING  AT  25 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  *5 

BEGINNING  AT  84,  ENDING  AT  97 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #6 

BEGINNING  AT  26,  ENDING  AT  34 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  *7 

BEGINNING  AT  50,  ENDING  AT  68 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
6 
BASIC  BLOCK  *8 

BEGINNING  AT  35,  ENDING  AT  49 


158 


BLUCK  iKAVbKbtO  1  flMt:> 

1  REFERENCES: 
6 
BASIC  BLOCK  #9 

BEGINNING  AT  68,  ENDING  AT  83 
BLOCK  TRAVERSED  2  TIMES 
1  REFERENCES: 
8 
BASIC  BLOCK  #10 

BEGINNING  AT  97,  ENDING  AT  112 
BLOCK  TRAVERSEO  3  TIMES 
1  REFERENCES: 
9 

BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER  NUMBER  OF  PASSES 

1  1 

2  1 

3  1 

4  1 

5  1  . 

6  1 

7  1 

8  1 

9  2 

10  3 

TOTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  13 

USING  THE  LAST-IN-FIRST-OUT   SLOCK  SELECTIGN  ALGORITHM. 

TIME* FOR  THE  OPTIMIZATION  WAS  0.333  SECONDS. 

***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 


159 


♦  ♦♦CODE    SYNTHESIS    FILTER^^ 

BLOCK    SELECTION    METHOD   WILL    BE    STEEPEST    DESCENT    (MINIMUM    CURRENT    POOL) 

♦♦*C    OMPLETE  TABLE         DUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


♦♦*T    ABLE 


DUM    ?♦♦♦    AT    LOCATION 


CONSTANTS    <1>      <2>      <3>      <4>      < 5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 


CONSYM 
CCNTYPE 
CONVAL 
CONINT 


10         20  30 

INT       INT  INT 

114       1  15  116 

10       120  130 


ADDR    TABL    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <li>    <12>    <13>    <14> 
(EMPTY) 

VALUE    STACK    (TOP    AT    127)  } 


CONT  STK 

BLOCKS 

ENTRY 


<1> 

0 
0 


<2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


EXEC  STAC  <1> 
(EMPTY) 


<2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 


*** 
LOC 

***** 
0 
1 
2 
3 
4 
5 
6 
7 
.8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 


*  FORMATTED 
OFF  CP  C 
SET 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


INTERMEDIATE  CODE  DUMP   **** 
ODE     CNS  ADR     RAW  CODE      OPTIMIZATION 

/ETC  TYPE 

*********:**************»*:*:£****#*******#  **#:********:ic* 


ENT 

C 

114 

00033072 

TOGGLE 

257 

000B0101 

LOG 

1 

00023001 

INT 

0 

00050000 

STD 

0 

00290000 

LOC 

2 

00020002 

INT' 

0 

00050000 

STD 

0 

00290000 

ENT 

1 

00030001 

LOC 

1 

00020001 

LOD 

0 

00270000 

LOC 

2 

00020002 

LOD 

0 

00270000 

GTR 

0 

00210000 

XIT 

113 

00040071 

X1T 

17 

00040011 

BSC 

0 

002F0000 

ENT 

1 

00030001 

LOC 

1 

00020001 

LOD 

0 

00270000 

LOC 

2 

00020002 

LOD 

0 

00270000 

GTR 

0 

00210000 

XIT 

84 

00040054 

XIT 

26 

0004001A 

BSC 

0 

002F0000 

ENT 

1 

00030001 

LOC 

1 

00020001 

LOD 

0 

00270000 

LOC 

2 

00020002 

LOD 

0 

00270000 

GTR 

0 

00210000 

XIT 

50 

00040032 

XIT 

35 

00040023 

BSC 

0 

002FOOOO 

ENT 

1 

00030001 

LOC 

2 

O002UOO2 

INT 

1 

00050001 

STO 

0 

00280000 

DEL 

0 

002A0000 

LOC 

1 

00020001 

LOC 

2 

00020002 

160 


4Z 

"  U 

LUU 

0 

OOd (VUUO 

43 

0 

LOC 

3 

00020003 

44 

0 

LOD 

0 

00270000 

45 

0 

MUL 

0 

00140000 

46 

0 

STO 

0 

00280000 

47 

0 

DEL 

0 

002A0000 

48 

0 

XIT 

68 

00040044 

49 

0 

BRS 

0 

002E0000 

50 

0 

ENT 

1 

00030001 

51 

0 

LOC 

2 

00020002 

52 

0 

INT 

2 

00050002 

53 

0 

STO 

0 

00200000 

54 

0 

DEL 

0 

002A0000 

55 

0 

LOC 

4 

00020004 

56 

0 

LOC 

2 

00020002 

57 

0 

LOD 

0 

00270000 

58 

0 

STO 

0 

00280000 

59 

0 

DEL 

0 

002AOOOO 

60 

0 

LOC 

6 

00020006 

61 

0 

LOC 

4 

00020004 

62 

0 

LOD 

0 

0C270000 

63 

0 

LOC 

3 

00020003 

64 

0 

LOD 

0 

00270000 

65 

0 

MUL 

0 

00140000 

66 

0 

STO 

0 

00280000 

67 

0 

DEL 

0 

002A0000 

68 

0 

ENT 

1 

00030001 

69 

0 

LOC 

5 

00020005 

70 

0 

LOC 

2 

00020002 

71 

0 

LOD 

0 

00270000 

72 

0 

STO 

0 

00280000 

73 

0 

DEL 

0 

002A0J00 

74 

0 

LOC 

8 

00020008 

75 

0 

LOC 

5 

00020005 

76 

0 

LOD 

0 

00270000 

77 

0 

LOC 

3 

00020003 

78 

0 

LOD 

0 

00270000 

79 

0 

MUL 

0 

00140000 

80 

0 

STO 

0 

00260000 

81 

0 

DEL 

0 

002A0000 

82 

0 

XIT 

97 

00040061 

83 

0 

BRS 

0 

002E0000 

84 

0 

ENT 

1 

00030001 

85 

0 

LOC 

2 

000  20  0  0  2 

86 

0 

INT 

3 

00050003 

87 

0 

STO 

0 

00280000 

88 

0 

DEL 

0 

002AOOOO 

89 

0 

LOC 

10 

0002000A 

90 

0 

LOC 

3 

00020003 

91 

0 

LOD 

0 

00270000 

92 

0 

LOC 

2 

00020002 

93 

0 

LOD 

0 

00270000 

94 

0 

MUL 

0 

00140000 

95 

0 

STO 

0 

00280000 

96 

0 

DEL 

0 

002A0000 

97 

0 

ENT 

1 

00030001 

98 

0 

LOC 

5 

00020005 

99 

0 

LOC 

3 

00020003 

100 

0 

LOD 

0 

00270000 

101 

0 

STO 

0 

00280000 

102 

0 

DEL 

0 

002A0000 

103 

0 

LOC 

9 

00020009 

104 

0 

LOC 

2 

00020002 

105 

0 

LOD 

0 

00270000 

106 

0 

LOC 

3 

00020003 

107 

0 

LOD 

0 

00270000 

108 

0 

MUL 

0 

00140000 

109 

0 

STO 

0 

00280000 

110 

0 

DEL 

0 

OO2AOO0O 

111 

0 

XIT 

8 

00040008 

112 

0 

BRS 

0 

OO2E000O 

113 

0 

ENT 

1 

00030001 

*♦*********#} 

n************ 

t* i 

J:******* 

1*$*$*$**$$ 

****$<<*$****$##********:*** 


BASIC   BLOCK    #1 

BEGINNING    AT    0,     ENDING    AT    0 
BLOCK    TRAVERSED    0    TIMES 
0    REFERENCES: 

COMPLETE         TABLE 


***E 

N  D    OF 

B*2 

0 

LOC 

B+3 

0 

INT 

B*4 

0 

STD 

B*5 

0 

LOC 

B*6 

0 

INT 

B*7 

0 

STD 

00020001 
00050000 
00290000 
00020002 
00050000 
00290000 


D    U    M    P*** 


161 


0*6 


IbNI 


I  IX 


|  UOOrSU'JUl    | 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
A(2t*tU8)   A(1,*,117J 


BLOCK*  2  IS: 


CONTROL  AT 

8i  FROM  BLK 

1 

C+8     0 

ENT 

c 

B+9     0 

LOC 

B+10    0 

LOO 

B  +  ll    0 

LOC 

B  +  12    0 

LOO 

B  +  13    0 

GTR 

B  +  14    0 

XIT 

B  +  15    0 

XIT 

B  +  16    0 

BSC 

TO  BLK 

118 

1 

0 

2 

0 

0 

113 

17 

0 


2  (PA 

0003 
0002 
0027 
0002 
0027 
0021 
0004 
0004 
002F 


SS  1) 

6076 
0001 
0000 
0002 
0000 
0000 
0071 
0011 
0000 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCKS  3  IS: 
C(  117:118,*, 119)   A(2f*f118l   All,*, 117) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED 
C(  117:118,*, 119)   A(2,*,118)   All,*, 11 7) 


FOR   BLOCK*  4  IS: 


CONTROL  AT 

17, 

C  +  17 

0 

ENT 

6  +  18 

0 

LOC 

6  +  19 

0 

LOO 

B+20 

0 

LOC 

6*21 

0 

LOD 

6+2  2 

0 

GTR 

6+23 

0 

XIT 

8+24 

0 

XIT 

6+2  5 

0 

BSC 

FROM  BLK  2  TO 
128 
1 
0 
2 
0 
0 

84 
26 
0 


BLK 


4  (PASS  1) 

00038080 
00020001 
00270000 
00020002 
0C270000 
00210000 
00040054 
0004001A 
002F0000 


INITIAL  CURRENT  OPTIMIZED  POOL  TO-  BE  USED  FOR 
CI  117:118,*, 119)   A(2,*,118)   A(l,*,117) 


BLOCK*  5  IS: 


INITIAL  CURRENT  OPTIMIZED 

C(  117:118,*, 119)   A(2,*,l 

CONTROL  AT  26,  FROM  BLK  4 

C  +  26    0 

ENT 

C 

8+27    0 

LOC 

6+28    0 

LGD 

B  +  29    0 

LOC 

6+30    0 

LOD 

6+31    0 

GTR 

B+32    0 

XIT 

B+33    0 

XIT 

8+34    0 

BSC 

POOL  TO  BE  USED  FOR   BLOCK*  6  IS: 
118)   All,*, 117) 


TC  BLK 
138 
1 
0 
2 
0 
0 

50 
35 
0 


6  (PASS  1) 

0003808A 

00020001 

•*j  kj   c.  I  <--  kj     J  V 

00020002 
00270000 
00210000 
OC040032 
00040023 
002F0000 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C( 117:118,*, 119)   A(2,*,118)   A(l,*,117) 


BLOCK*  7  IS: 


INITIAL  CURRENT  OPTIMIZED  PCOL  TO  BE  USED 

CI117: 118,*, 119)   A(2,*,118)  A(l,*,117) 

CONTROL  AT  35,  FROM  BLK  6  TO  BLK  8  (PASS 

:+35    0  (ENT  C  148  00038094 

$+36    0  LOC  2  00020002 

$+37    0  INT  1  00050001 

$+38    0  STO  0  00260000 

$+39    0  DEL  0  002A0000 

3+40    0  LOC  1  00020001 

$+41    0  LOC  2  00020002 

$+42    0  LOO  0  00270000 

$+43    0  LOC  3  00020003 

$+44    0  LOD  0  00270000 

$+45    0  MUL  0  00140000 

$+46    0  STO  0  00280000 

$+47    0  DEL  0  002A0000 

$+48    0  XIT  68  00040044 

$+49    0  BRS  0  OO2E00OO 


FOR   BLOCK*  8  IS: 


1) 


INITIAL  CURRENT  OPTIMIZED  PCOL  TO  BE  USED  FOR 
C(  117: 118,*, 119)   C(  114:120,*, 121)   Ail,*, 121) 

50,  FROM  BLK  6 


BLOCK*  9  IS: 
A(3,*, 120) 


A(2,114,114) 


CONTROL  AT 

50, 

C  +  50 

0 

ENT 

B+51 

0 

LOC 

B+52 

0 

INT 

B+53 

0 

STO 

B  +  54 

0 

DEL 

B+55 

0 

LOC 

B+56 

0 

LOC 

B+57 

0 

LOD 

TO  BLK  7  (PASS  1) 

143 

0003808F 

2 

00020002 

2 

00050002 

0 

00280000 

0 

002A0000 

4 

00020004 

2 

00020002 

0 

00270000 

162 


bob 

U 

51  u 

B*59 

0 

DEL 

B*60 

0 

LOC 

6*61 

0 

IOC 

B*62 

0 

LOO 

B*63 

0 

LOC 

B*64 

0 

LOO 

B+65 

0 

MUL 

B*66 

0 

STO 

B*67 

0 

DEL 

B*68 

0 

ENT 

C 

BEFORE 

THE  MEET  OPERATION: 

u 

uu<?«uuuu 

0 

O02A0000 

6 

00020006 

4 

00020004 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002AO00O 

153 

00038099 

OUTPUT    POOL    FROM    BLOCKS     7    IS: 

C( 117:118,*, 119)      C(  115:  122,*, 123) 

A(2,U5,115)       A(l,*,117) 


A(3,*,122)       A(6,*,123)       A( 4 ,115, 115J 


CURRENT    POOL    FOR    BLOCKS    9    IS: 

C< 117: 118,*, 119)      C<  114:120,*, 121) 

AFTER  PERFORMING  THE  MEET  OPERATION: 


Ad,*, 121)      A(3,*,120)      A(2, 114,114) 


NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCKS    9    IS: 
A(l,*,124)       A(3,*,125)       A(2,*,126)       C( 1 26: 1 25,* , 127) 


CONTROL  AT 

84, 

C+84 

0 

ENT 

B*85 

0 

LOC 

B+86 

0 

INT 

B  +  87 

0 

STO 

B+88 

0 

DEL 

B+89 

0 

LOC 

B+90 

0 

LOC 

B*91 

0 

LOD 

B+92 

0 

LOC 

B*93 

0 

LOD 

B+94 

0 

MUL 

6*95 

0 

STO 

B+96 

0 

DEL 

B*97 

0 

ENT 

FROM    BLK    4 


TO  BU 

(  5  (PASS  1) 

133 

00038085 

2 

00020002 

3 

00050003 

0 

00280000 

0 

002A0000 

10 

0002000A 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0O00 

1 

00030001 

INITIAL    CURRENT    OPTIMIZED    POOL    TO   BE    USED    FOR      BLOCKS    10    IS: 

C( 117:118,*, 119)      C(  128:116,*,  129)       A(3,*,128)       A(10,*,129)       4(2,116,116) 

A(  1,*,117) 


CONTROL  AT 

113,  FROM  BLK 

2  TO  BLK  3  (PASS  1 

C+113   0 

ENT          |C 

123    I  0003807B 

CONTROL  AT 

68,  FROM  BLK  " 

r  TO  BLK  9  (PASS  1) 

C*68    0 

ENT 

C 

153 

00038099 

B*69    0 

LOC 

5 

00020005 

B«-70    0 

LOC 

2 

00020002 

B+71    0 

LOD 

0 

00270000 

B+72    0 

STO 

0 

00280000 

B  +  73    0 

DEL 

0 

002A0000 

B+74    0 

LOC 

8 

00020008 

B+75    0 

LOC 

5 

00020005 

B+76    0 

LOD 

0 

00270000 

B*77    0 

LOC 

3 

00020003 

B+78    0 

LOD 

0 

00270000 

B+79    0 

MUL 

0 

00140000 

B  +  80    0 

STO 

0 

00230000 

B*81    0 

DEL 

0 

002A0000 

B+82    0 

XIT 

97 

00040061 

B*83    0 

BRS 

0 

002E0000 

BEFORE    THE    MEET    OPERATION: 

OUTPUT     POOL    FROM    BLOCKS    9    IS: 
C(126: 125,*, 127)       A(8,*,127) 


A(5,*,126)       A(l,*,124)       A(3,*,125)       A(2,*,126) 


CURRENT    POOL    FOR    BLOCKS     10    IS: 

C( 1 17: 118,*, 11 9)      C(  128:  116,*, 129) 

All,*, 117) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR      BLOCKS    10    IS: 
A(3,*,130)       A(2,*,131)       All,*, 132)      C ( I  31  :  130,* , 133) 


A(3,*,128)       A(10,*,129)-      A(2,116,116) 


CONTROL    AT    97,     FROM    BLK    9    TO    BLK    10    (PASS    1) 


C*97 

0 

ENT 

B*98 

0 

LOC 

B*99 

0 

LOC 

158 

5 

3 


0003809E 
00020005 
00020003 


163 


8*i  uu   u 

LUU 

U 

6*101   0 

STO 

0 

6*102   0 

DEL 

0 

6*103   0 

LOG 

9 

6*104   0 

LOC 

2 

6*105   0 

LOD 

0 

6*106   0 

LOC 

3 

8*107   0 

LOO 

0 

6*108   0 

MUL 

0 

8*109   0 

STO 

0 

8*110   0 

DEL 

0 

6+111   0 

XI  T 

8 

6*112   0 

BRS 

0 

8EF0RE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK./*  10  IS: 

C(13l:130,< 

',133)   A(9,*,133) 

A( 

oo^ruuuu 

00280000 
O02A300O 
00020009 
00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
002A0000 
00040008 
002E0000 


5,*, 130)   A(3,*,130)   A(2v*tl31)   A(l,*,132) 


CURRENT    POOL    FOR    BLOCKS     2    IS: 
A(2i*f 118)       A(  1,*,11  1) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME    AS    OLO   CURRENT    POOL 

FINAL    OPTIMIZATION    RESULTS 


OPTIMIZATION    AT    22 

(117, 1181 13,119) 

OPTIMIZATION    AT    31 

(117,1181 13,  119) 

OPT)MIZATION    AT    79 

(126,1251 79,127) 

OPTIMIZATION  AT  108 


ION  AT  108 

<  J30, 13lf 108, 133) 


COMM  SUBEXP  ELIM 

COMM  SUBEXP  ELIM 

COMM  SUBEXP  ELIM 

COMM  SUBEXP  ELIM 


****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF     OP  CODE     CNS  ADR 

RAW  CODE      OPTIMIZATION 

SET                    /ETC 

TYPE 

**********************************************  ************************ 

0     0 

ENT 

114 

00030072 

1      0 

TOGGLE 

257 

000B0101 

2      0 

LOC 

1 

00020001 

3     0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6     0 

INT 

0 

00050000 

7     0 

STD 

0 

00290000 

8     0 

ENT 

118 

00030076 

9      0 

LOC 

1 

00020001 

• 

10     0 

LOD 

0 

00270000 

11     0 

LOC 

2 

00020002 

12     0 

LOD 

0 

00270000 

13     0 

GTR 

1024 

00210400 

14     0 

XIT 

113 

00040071 

15     0 

XIT 

17 

00040011 

16     0 

BSC 

0 

002F0000 

17     0 

ENT 

128 

00030080 

18     0 

LOC 

1 

00020001 

19     0 

LOD 

0 

00270000 

20     0 

LOC 

2 

00020002 

21     0 

LOD 

0 

00270000 

22     0 

GTR 

C 

1016 

002183F8 

COMM  SUBEXP  ELIM 

23     0 

XIT 

84 

00040054 

24     0 

XI  T 

26 

0004001  A 

25     0 

BSC 

0 

002F0000 

. 

26     0 

ENT 

138  . 

0003008A 

27     0 

LOC 

1 

00020001 

28     0 

LOD 

0 

00270000 

29     0 

LOC 

2 

00020002 

30     0 

LOD 

0 

00270000 

' 

31     0 

GTR 

c 

1008 

002183F0 

COMM  SUBEXP  ELIM 

32     0 

XIT 

50 

00040032 

33     0 

XIT 

35 

00040023 

34     0 

BSC 

0 

002FOOOO 

35     0 

ENT 

148 

00030094 

36     0 

LOC 

2 

00020002 

37     0 

INT 

1 

00050001 

164 


3tt 

U 

51  u 

O 

uu^euuuu 

39 

0 

DEL 

0 

OO2AO0O0 

40 

0 

LOC 

1 

00020001 

41 

0 

LOC 

2 

.  00020002 

42 

0 

LOD 

0 

00270000 

43 

0 

LOC 

3 

00023003 

44 

0 

LOD 

0 

00270000 

45 

0 

MUL 

1000 

0014J3E8 

46 

0 

STO 

0 

00280000 

47 

0 

DEL 

0 

002A0000 

48 

0 

XIT 

68 

00040044 

49 

0 

BRS 

0 

002E0000 

50 

0 

ENT 

143 

0003008F 

51 

0 

LOC 

2 

00020002 

52 

0 

INT 

2 

00050002 

53 

0 

STO 

0 

00280000 

54 

0 

DEL 

0 

002AOOOO 

55 

0 

LOC 

4 

00020004 

56 

0 

LOC 

2 

00020002 

57 

0 

LOD 

0 

00270000 

58 

0 

STO 

0 

00280000 

59 

0 

DEL 

0 

002AOOOO 

60 

0 

LOC 

6 

00020006 

61 

0 

LOC 

4 

0002030V 

62 

0 

LOD 

0 

00270000 

63 

0 

LOC 

3 

00020003 

64 

0 

LOD 

0 

00270000 

65 

0 

MUL 

992 

001403E0 

66 

0 

STO 

0 

00280000 

67 

0 

DEL 

0 

002A00O0 

68 

0 

ENT 

153 

00030099 

69 

0 

LOC 

5 

00020005 

70 

0 

LOC 

2 

00020002 

71 

0 

LOD 

0 

00270000 

72 

0 

STO 

0 

00260000 

73 

0 

DEL 

0 

002A0000 

74 

0 

LOC 

8 

00020008 

75 

0 

LOC 

5 

00020305 

76 

0 

LOD 

0 

00270000 

77 

0 

LOC 

3 

00020003 

78 

0 

LOD 

0 

00270000 

79 

0 

MUL 

C 

980 

00148304 

80 

0 

STO 

0 

00280000 

81 

0 

DEL 

0 

OO2A0OO0 

82 

0 

XIT 

97 

00040061 

83 

0 

BRS 

0 

002EOOOO 

84 

0 

ENT 

133 

00030085 

85 

0 

LOC 

2 

00020002 

86 

0 

INT 

3 

00050003 

87 

0 

STO 

0 

00280000 

88 

0 

DEL 

0 

0O2A0300 

89 

0 

LOC 

10 

0002300A 

90 

0 

LOC 

3 

00020003 

91 

0 

LOD 

0 

00270000 

92 

0 

LOC 

2 

00020002 

93 

0 

LOD 

0 

00270000 

94 

0 

MUL 

988 

001403DC 

95 

0 

STO 

0 

00280000 

96 

0 

DEL 

0 

002A0000 

97 

0 

ENT 

158 

0003009E 

98 

0 

LOC 

5 

00020005 

99 

0 

LOC 

3 

00020003 

100 

0 

LOD 

0 

00270000 

101 

0 

STO 

0 

00230000 

102 

0 

DEL 

0 

002A0000 

103 

0 

LOC 

9 

00020009 

104 

0 

LOC 

2 

00020002 

105 

0 

LOD 

0 

00270000 

106 

0 

LOC 

3 

00020003 

107 

0 

LOD 

0 

00270000 

108 

0 

MUL 

C 

976 

001483D0 

109 

0 

STO 

0 

00280000 

110 

0 

DEL 

0 

0O2A00OO 

111 

0 

XIT 

8 

00040003 

112 

0 

BRS 

0 

002E0000 

113 

0 

ENT 

t*: 

123 

0003007B 

COMM  SUBEXP  ELIM 


COMM  SUBEXP  ELI^ 


***********#***#******«*** 


FINAL  OPTIMIZATION  POOL  FOR  EACH  3L0CK  IS: 


FINAL  POCL  FOR   BLOCK*  1  IS: 
(NULL) 


165 


FINAL  POCL  FOR   BLOCK*  2  IS: 
A(2,*,134)   A(lt*tl35) 


FfNAL  POCL  FOR   BLOCK*  3  IS: 

C(  117:118,*,  119)   A(2,*,118)   Ad,*, 117) 


FINAL  POCL  FOR   BLOCK*  4  IS: 
Cdl7:ll8,*,119)   A(2,*,118)   A(1,*,117J 


FINAL  POOL  FOR   BLOCK*  5  IS: 

C<  117:118,*, 119)   A(2t*fU8)   Ad,*, 117) 


FINAL  POCL  FOR   BLOCK*  6  IS: 

C(  117:118,*, 119)   A(2,*,118)   Ad,*, 117) 


FINAL  POCL  FOR   BLOCK*  7  IS:  , 

C(  117:118,*, 119)   A(2,*,118)   Ad,*, 117) 


FINAL  POCL  FOR   BLOCK*  8  IS: 
C(117:ll8,*,119)   A(2,*,118)   Ad,*, 117) 


FINAL  POCL  FOR   BLOCK*  9  IS: 

Ad,*, 124)   A(3,*,125)   A(2,*,126)   Cd  26  :  125,*,  127) 


FINAL  POCL  FOR   BLOCK*  10  IS: 

AJ3,*,130)   A<2,*,13U   Ad,*, 132)   C  (1  31  :  130,*  ,  133) 


BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  AT  8 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  *2 

BEGINNING  AT  8,  ENDING  AT  16 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  #3 

BEGINNING  AT  113,  ENDING  AT  113 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  #4 

BEGINNING  AT  17,  ENDING  AT  25 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  #5 

BEGINNING  AT  84,  ENDING  AT  97 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #6 

BEGINNING  AT  26,  ENDING  AT  34 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #7 

BEGINNING  AT  50,  ENDING  AT  68 
BLOCK  TRAVERSED  1  TIMES 
I  REFERENCES: 
6 
BASIC  BLOCK  #8 

BEGINNING  AT  35,  ENDING  AT  49 
BLOCK  TRAVERSED  1  TIMES 
I  REFERENCES: 
6 
BASIC  BLOCK  #9 

BEGINNING  AT  68,  ENDING  AT  83 
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ULULK  IKAVtKbtU  I  llMfcb 
1  REFERENCES: 

7 
BASIC  8L0CK  810 

BEGINNING  AT  97,  ENDING  AT  112 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 

9 

BLOCK    SUMMARY    DATA: 

BLOCK    NUMBER  NUMBER    OF    PASSES 

1  1 

2  1 

3  1 

4  1 

5  1 

6  1 
7 
8 

9  I 

10  1 


1 


TOTAL  NUMEER  OF  BLOCKS  PROCESSED  WAS  10 

USING  THE  STEEPEST  DESCENT  (MINIMUM  CURRENT  POOL)   BLOCK  SELECTION  ALGORITHM, 

TIME  FOR  THE  OPTIMIZATION  WAS  0.267  SECONDS. 

***COOE  SYNTHESIS  FILTER  IS  COMPLETE*** 
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♦♦♦CODE  SYNTHESIS  FILTER**^ 

BLOCK    SELECTION    METHOD    WILL    BE    F IRST- IN-F IRST-OUT 

♦♦♦C    OMPLETE         TABLE         DUM    P*«* 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


♦♦*T    ABLE 


DUM    P***    AT    LOCATION 


CONSTANTS    <1>       <2>       <3>      <4>      <5>       <6>       <7>      <8>      <9>      <10>    <ll>    <12>   <13>    <14> 


CONSYM 
CCNTYPE 
CONVAL 
CON1NT 


U  120  130 

INT  INT  ] INT 

114  115  1  16 

10  20  |30 


ADDR    TABL    <1>      <2>      <3>       <4>      <5>      <6>      <7>      <8>      <9>      <10>    <il>    <12>   <13>    <14> 
(EMPTY) 

VALUE    STACK    (TOP    AT    127) 


CONT  STK   <1>   <2>   <3> 

<4>   <5>   <6>   <7> 

BLOCK*    10 

ENTRY     |0 

EXEC  STAC  <1>   <2>   <3>   <4>   <5>   <6>   <7> 

(EMPTY) 

♦♦♦♦   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF 

OP  CODE     CNS  ADR 

RAW  CODE 

SET 

/ETC 

***$*#****$$*##££******#*****#*£**=********#*** 

0      0 

ENT 

C 

114 

00038072 

1     0 

TOGGLE 

257 

000B0101 

2     0 

LOC 

1 

00020001 

3     0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6     0 

INT 

0 

00050000 

7     0 

STD 

0 

00290000 

8     0 

ENT 

1 

00030001 

9     0 

LOC 

1 

00020001 

10     0 

LOD 

0 

00270000 

11     0 

LOC 

2 

00020002 

12     0 

LCD 

0 

00270000 

13     0 

GTR 

0 

00210000 

14     0 

XI  T 

113 

00040071 

15     0 

XIT 

17 

00040011 

16     0 

BSC 

0 

002FOOOO 

17     0 

ENT 

1 

00030001 

18     0 

LOC 

1 

00020001 

19     0 

LOD 

0 

00270000 

20     0 

LOC 

2 

00020002 

21     0 

LOD 

0 

00270000 

22     0 

GTR 

0 

00210000 

Zi           0 

XIT 

04 

00040054 

24     0 

XIT 

26 

0004001  A 

25     0 

BSC 

0 

002FOOOO 

26     0 

ENT 

1 

00030001 

27     0 

LOC 

1 

00020001 

28     0 

LOD 

0 

00270000 

29     0 

LOC 

2 

00020002 

30     0 

LOD 

0 

00270000 

31     0 

GTR 

0 

00210000 

32     0 

XIT 

50 

000  40032 

33     0 

XIT 

35 

00040023 

34     0 

BSC 

0 

002FOOOO 

35     0 

ENT 

1 

00030001 

36     0 

LOC 

2 

00020002 

37     0 

INT 

1 

00050001 

38     0 

STO 

0 

00280000 

39     0 

DEL 

0 

002A0000 

40     0 

LOC 

1 

00020001 

41     0 

LOC 

2 

00020002 

<8>      <9>      <10>    <11>    <12>   <13>    <14> 


<8>      <9>      <10>   <11>    <12>   <13>    <14> 


OPTIMIZATION 
TYPE 
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HZ 

u 

LIJU 

u 

OUd fOUUO 

43 

0 

LOC 

3 

00020003 

44 

0 

LOD 

0 

00270000 

45 

0 

MUL 

0 

00140000 

46 

0 

STO 

0 

00280000 

47 

0 

DEL 

0 

002A0000 

48 

0 

XIT 

68 

00040044 

49 

0 

BRS 

0 

002EOOOO 

50 

0 

ENT 

1 

00030001 

51 

0 

LOC 

2 

00020002 

52 

0 

INT 

2 

00050002 

53 

0 

STO 

0 

00280000 

54 

0 

DEL 

0 

002AOOOO 

55 

0 

LOC 

4 

00020004 

56 

0 

LOC 

2 

00020002 

57 

0 

LOD 

0 

00270000 

58 

0 

STO 

0 

00280000 

59 

0 

DEL 

0 

'    O02A00OO 

60 

0 

LCC 

6 

00020006 

61 

0 

LOC 

4 

00020004 

62 

0 

LOD 

0 

00270000 

63 

0 

LOC 

3 

00020003 

64 

0 

LGD 

0 

00270000 

65 

0 

MUL 

0 

00140000* 

66 

0 

STO 

0 

00280000 

67 

0 

DEL 

0 

002AOOOO 

68 

0 

ENT 

1 

00030001 

69 

0 

LOC 

5 

00020005 

70 

0 

LOC 

2 

00020002 

71 

0 

LOD 

0 

00270000 

72 

0 

STO 

0 

00280000 

73 

0 

DEL 

0 

002A0000 

74 

0 

LOC 

8 

00020008 

75 

0 

LOC 

5 

00020005 

76 

0 

LCD 

0 

00270000 

77 

0 

LOC 

3 

00020003 

78 

0 

LOD 

0 

00270000 

79 

0 

MUL 

0 

00140000 

•    80 

0 

STO 

0 

00280000 

81 

0 

DEL 

0 

002A0000 

82 

0 

XIT 

97 

00040061 

83 

0 

BRS 

0 

0O2E0OOO 

84 

0 

ENT 

1 

00030001 

85 

0 

LOC 

2 

00020002 

86 

0 

INT 

3 

0005C003 

87 

0 

STO 

0 

00280COO 

88 

0 

DEL 

0 

002AOOOO 

89 

0 

LOC 

10 

0002000A 

90 

0 

LOC 

3 

00020003 

91 

0 

LOD 

0 

00270000 

92 

0 

LOC 

2 

00020002 

93 

0 

LOD 

0 

00270000 

94 

0 

MUL 

0 

00140000 

95 

0 

STO 

0 

00280000 

96 

0 

DEL 

0 

002A0000 

97 

0 

ENT 

1 

00030001 

98 

0 

LOC 

5 

00020005 

99 

0 

LOC 

3 

00020003 

100 

0 

LOD 

0 

00270000 

101 

0 

STO 

0 

00280000 

102 

0 

DEL 

0 

002A00O0 

103 

0 

LOC 

9 

00020009 

104 

0 

LOC 

2 

00020002 

105 

0 

LOD 

0 

00270000 

106 

0 

LOC 

3 

00020003 

107 

0 

LOD 

0 

00270000 

108 

0 

MUL 

0 

00140000 

109 

0 

STO 

0 

00280000 

110 

0 

DEL 

0 

002AOOOO 

111 

0 

XIT 

8 

00040008 

112 

0 

BRS 

0 

002EOOOO 

113 

0 

ENT 

1 

00030001 

*♦*******«**] 

l**********:** 

!=***#****< 

.lit*********** 

BASIC    £ 

iLOCK    #1 

£ 

IEGINNING    AT    0,     ENDINC 

;  AT  o     • 

£ 

(LOCK    TRAVERSED    0    TIME 

;s 

( 

)    REFERENCES: 

***B 

N   0        ( 

3F         COMPLETE 

TABLE 

B+2 

0 

LOC 

1 

00020001 

B+3 

0 

INT 

0 

00050000 

B*4 

0 

STD 

0 

00290000 

B*5 

0 

LOC 

2 

00020002 

B*6 

0 

INT 

0 

00050000 

1*1 

0 

STD 

0 

00290000 

*****<.**#**«;*****<<******** 


D    U    M    P*** 
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SttJ 


ItNl 


I      II 


I    yjjjuuui       | 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR 
A(2,*,118)       A(l,*,117) 


BLOCK*    2    IS: 


CONTROL  AT 

8,  FROM  BLK 

1 

C*8     0 

ENT 

C 

8*9     0 

LOC 

6HO    0 

LOD 

B  +  l  1    0 

LOC 

8*12    0 

LOD 

BH3    0 

GTR 

8*14    0 

X[T 

B*15    0 

XIT 

B  +  lo    0 

BSC 

TO  BLK 

2  (PASS  I) 

118 

00038076 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

113 

00040071 

17 

00040011 

0 

O02F000O 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR 
C(  117:  118,*,  119)       A(2t*fU8J       A(l,*,117) 


BLOCK*  3  IS: 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
Cf 117: 11 8t*, 119}   A(2,*,118)   All,*, 117) 


BLOCK*  4  IS: 


CONTROL  AT  113,  FROM  BLK  2  TO 

C  +  113   0  IENT  1CI123 

CONTROL  AT  17,  FROM  BLK  2  TO 

C*17    0  ENT  C  128 

B*18    0  LOC  1 

8*19    0  LOD  0 

8*20    0  LOC  2 

8*21    0  LOD  0 

B  +  22    0  GTR  0 

8+23    0  XIT  84 

8  +  24    0  XIT  26 

8*25    0  BSC  0 


BLK  3  (PASS  1 
I  0003807B 
3LK  4  (PASS  1) 
00038030 
00020001 
00270000 
00020002 
00270000 
00210000 
00040054 
0004001A 
002F0000 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C(  117:118,*,  119)   A(2,*,118)   A(1,*,U7) 


BLOCKS  5  IS: 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C( 117:118,*, 119)   A(2,*,118)   A(l,*,117) 


BLOCK*  6  IS: 


CONTROL  AT 
C  +  84    0 


8*85 

0 

LOC 

8*86 

0 

INT 

B*87 

0 

STO 

8*88 

0 

DEL 

8*89 

0 

LOC 

B+9  0 

0 

LOC 

B+91 

0 

LOD 

B*92 

0 

LOC 

B+93 

0 

LOD 

8*94 

0 

MUL 

B*95 

0 

STO 

B+96 

0 

DEL 

8*97 

0 

ENT 

84,  FROM 

CMT 


BLK  4  TO  BLK 

!C  133 

2 

3 

0 

0 

10 
3 
0 
2 
0 
0 
0 
0 

1 


5  (PASS  1) 

r\QQ  3  gr>  qc 

00025552 
00050003 
00280000 
002AOOOO 
0002000A 
00020003 
00270000 
00020002 
00270000 
00140000 
00280000 
002A0000 
00030001 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C( 117:118,*, 119)   C(  120:116,*,  121)   A(3,*,120) 
A(  1,*,117) 


BLOCK*  7  IS: 
A( 10,*, 121) 


M  2,116, 116) 


CONT 

*0L  AT 

26, 

C*26 

0 

ENT 

8*27 

0 

LOC 

B*28 

0 

LOD 

B  +  29 

0 

LOC 

8*30 

0 

LOD 

B*31 

0 

GTP 

B+32 

0 

XIT 

8*33 

0 

XIT 

8*34 

0 

BSC 

FROM  BLK  4  TO  BLK 
138 
1 
0 
2 
0 
0 

50 
35 
0 


6  (PASS  1) 

0003808A 
00020001 
00270000 
00020002 
00270000 
00210000 
00040032 
00040023 
002FOOOO 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  8  IS: 
C( 117: 118,*, 119)   A(2,*,118)   A(l,*,117) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C( 117:118,*, 119)   A(2,*,118)   A(l,*,117) 


BLOCK*    9    IS: 


CONTROL    AT    97,     FROM    BLK     5    TO    BLK 

143 
5 
3 
0 
0 
0 


C*97 

0 

ENT 

8*98 

0 

LOC 

8*99 

0 

LOC 

8*100 

0 

LOD 

8*101 

0 

STO 

B  +  102 

0 

DEL 

7  (PASS  1) 

0003808F 
00020005 
00020003 
00270000 
00280000 
002A0000 


1?0 


6*iu3 
8  +  104 
6*105 
6  +  106 
6*107 
6*108 
6*109 
6*110 
6*111 
6*11?- 


BEFORE  THE 


LUC 

V 

LOC 

2 

LOD 

0 

LOC 

3 

LOO 

0 

MUL 

0 

STO 

0 

DEL 

0 

XIT 

8 

BRS 

0 

4EET  OPERATION 

UUUiUUUV 

00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
002A0000 
00040008 
002E00OO 


OUTPUT  POOL  FROM  BLOCK*  7  IS: 

C<  120:116,*, 121 )   C(  117:116,*. 119)   A(9,*,121) 

A<10,*,121)   A(2,IL6,116)   A(l,*,117) 


A(5,*,120)   A(3,*,120) 


CURRENT  POOL  FOR  BLOCK*  2  IS: 
A(2,*,113)   A(l(*fil7) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 

FROM  BLK  6 


CONTROL  AT 

50, 

C  +  50 

0 

ENT 

6*51 

0 

LOC 

6*52 

0 

INT 

6+53 

0 

STO 

6*54 

0 

DEL 

6*55 

0 

LOC 

6*56 

0 

LOC 

6*57 

0 

LOD 

6*58 

0 

STO 

6*59 

0 

DEL 

6*60 

0 

LOC 

6*61 

0 

LOC 

6+62 

0 

LOO 

6*63 

0 

LOC 

6*64 

0 

LOD 

6*65 

0 

MUL 

6+66 

0 

STO 

6+6  7 

C 

DEL 

6+68 

0 

ENT 

TO  BLK  8  (PASS  1) 

148 

00038094 

2 

00020002 

2 

00050002 

0 

00280000 

0 

002A0OOO 

4 

00020004 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002A0000 

6 

00020006 

4 

00020004 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

OO2A00OO 

1 

00030001 

INITIAL    CURRENT    OPTIMIZED    PCOL    TO    BE    USED    FOR       BLOCKS     10     IS: 

C(  117:118,*, 119)       C(115:  123,*, 124)       A(3,*,123)       A<6,*,124)       A(4,115,115) 

A(  2,  115,  115)       A(l,*,117) 

FROM    BLK    6 


CONTROL  AT 

35, 

C+35 

0 

ENT 

B+36 

0 

LOC 

6+3  7 

0 

INT 

6+38 

0 

STO 

6+39 

0 

DEL 

6+4  0 

0 

LOC 

6+41 

0 

LOC 

8+42 

0 

LOD 

6+43 

0 

LOC 

B+44 

0 

LOD 

B+45 

0 

MUL 

B+46 

0 

STO 

B+4  7 

0 

DEL 

6+4  8 

0 

XIT 

B+49 

0 

BRS 

TO  BLK  9  (PASS  1) 

153 

00038099 

2 

00020002 

1 

00050001 

0 

00280000 

0 

002AOOOO 

1 

00020001 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

OO2AC000 

68 

00040044 

0 

002E0000 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  9  IS: 

C(  117:118,*, 119)   C(  114: 125,*, 126) 


All,*, 126)   A(3,*,125J   A(2,114,114) 


CURRENT  POOL  FOR  BLOCK*  10  IS: 

C(  117: 118,*, 119)   C(  115:  123,*, 124) 

A(2,115,115)   A(1,*,U7) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  FOR   BLOCK*  10  IS: 
A(3,*,127)   A(2,*,128)   A(l,*,129) 


A(3,*,123)   A(6,*,124)   A(4,115,115) 


CONTROL  AT  68,  FROM  BLK  9  TO  BLK  10  (PASS  1 


C+6  8 
B+69 
6  +  70 
6*71 
6  +  72 


ENT 
LOC 
LOC 
LOO 
STO 


158 

0003809E 

5 

00020005 

2 

00020002 

0 

00270000 

0 

00280000 

171 


V+ll 

U 

UtL 

B*74 

0 

LOG 

B*75 

0 

LUC 

6*76 

0 

LCD 

Bt77 

0 

LUC 

B+78 

0 

LUO 

B*79 

0 

MUL 

B+80 

0 

SIU 

B*81 

0 

OhL 

B*8  2 

0 

xi  r 

B+83 

0 

BRS 

0 

UUi!AUUUU 

8 

00020008 

5 

00020005 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00200000 

0 

OO2A0OOO 

97 

00040061 

0 

002E0J00 

BEFORE    THE    MEET    OPERATION: 

OUTPUT    POOL    FROM    BLOCK*     10    IS: 

C( 128: 127,*, 130)       A(8,*,130J       A(5,*,128)       A(3,*,127)       A(2,*,128)       Ad,*, 129) 


CURRENT    FUOL    FOR    BLOCKS    7    IS: 
C(U7:118,*,119)       CI  120:116,*, 121) 
AU,*,117) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCKS    7     IS: 
A(3,*,131)       A(2,*,132)       A(i,*,133)       C  (  1 32 : 13 1,* , 134) 


A(3,*,120)       A(10,*,121)       A(2,116,116) 


FROM  BLK  10  TO 
143 
5 
3 
0 
0 
0 
9 
2 
0 
3 
0 

992 
0 
0 


BEFORE  THE  MEET  OPERATION: 


CONTROL  AT 

97, 

C+97 

0 

ENT 

B+98 

0 

LOC 

B  +  99 

0 

LOC 

B+100 

0 

LOO 

B*101 

0 

sro 

B  +  102 

0 

DEL 

B+103 

0 

LOC 

B  +  104 

0 

LOG 

B  +  105 

0 

LOD 

B  +  106 

0 

LOG 

B  +  107 

0 

LOD 

B  +  108 

0 

MUL 

B+109 

0 

STO 

B  +  110 

0 

DEL 

B  +  lll 

0 

XIT 

B  +  112 

0 

BRS 

BLK  7  (P 

00033 
OC020 
00020 
00270 
00280 
002A0 
00020 
00020 
00270 
00020 
00270 
00143 
00280 
002A0 
00040 
002E0 


ASS 

08F 
005 
003 
000 
000 
000 
009 
002 
000 
003 
000 
3E0 
000 
000 
OOR 
000 


2) 


COMM  SUBEXP  ELIM 


OUTPUT  POOL  FROM 
C(132:131,*,134) 


BLOCKS    7     IS 
A(9,*f 134) 


A(5,*,131)       A(3,*,131)       A(2,*,132)       A(l,*,133) 


CURRENT    POOL    FOR    BLOCKS    2    IS: 
A(2,*,122)       All,*, 117) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME    AS    OLD   CURRENT     POOL 


FINAL    OPTIMIZATION    RESULTS 


OPTIMIZATION    AT     22 

(117, 118f 13,119) 

OPTIMIZATION    AT    31 

(117,1181 13,119) 

OPTIMIZATION    AT    108 

(132,131194,134) 


COMM  SUBEXP  ELIM 
COMM  SUBEXP  ELIM 
COMM    SUBEXP    ELIrt 


****       FORMATTED    INTERMEDIATE    CODE    DUMP       **** 
LOC    OFF  OP    CODE  CNS    ADR  RAW    CODE  OPTIMIZATION 

SET  /ETC  TYPE 

**** *****$##****   **********    t***************   **************************** 

1 


0 

0 

ENT 

114 

00030072 

1 

0 

TOGGLE 

257 

OOOB0101 

2 

0 

LOC 

1 

00020001 

3 

0 

INT 

0 

00050J00 

4 

0 

STD 

0 

00290000 

5 

0 

LOC 

2 

00020002 

6 

0 

INT 

0 

00050000 

7 

0 

STD 

0 

00290000 

6 

0 

ENT 

118 

000300  76 

172 


V 

0 

LUC 

10 

0 

LOD 

11 

0 

LOC 

12 

0 

LOO 

13 

0 

GTR 

14 

0 

XIT 

15 

0 

XIT 

16 

0 

BSC 

17 

0 

£NT 

18 

0 

LOC 

19 

0 

LOO 

20 

0 

LOC 

21 

0 

LOD 

22 

0 

GTR 

23 

0 

XIT 

24 

0 

XI  T 

25 

0 

BSC 

26 

0 

ENT 

27 

0 

LOC 

28 

0 

LOO 

29 

0 

LOC 

30 

0 

LOD 

31 

0 

GTR 

32 

0 

XI  T 

33 

0 

XIT 

34 

0 

BSC 

35 

0 

ENT 

36 

0 

LOC 

37 

0 

INT 

38 

0 

STO 

39 

0 

DEL 

40 

0 

LOC 

41 

0 

LOC 

42 

0 

LOD 

43 

0 

LOC 

44 

0 

LOD 

45 

0 

MUL 

46 

0 

STO 

47 

0 

DEL 

48 

0 

XIT 

49 

0 

BRS 

50 

0 

ENT 

51 

0 

LOC 

52 

0 

INT 

53 

0 

STO 

54 

0 

DEL 

55 

0 

LOC 

56 

0 

LOC 

57 

0 

LOO 

58 

0 

STO 

59 

0 

DEL 

60 

0 

LOC 

61 

0 

LOC 

62 

0 

LOD 

63 

0 

LOC 

64 

0 

LOO 

65 

0 

MJL 

66 

0 

STO 

67 

0 

DEL 

68 

0 

ENT 

69 

0 

LOC 

70 

0 

LOC 

71 

0 

LOO 

72 

0 

STO 

73 

0 

DEL 

74 

0 

LOC 

75 

0 

LOC 

76 

0 

LOD 

77 

0 

LOC 

78 

0 

LOD 

79 

0 

MUL 

80 

0 

STO 

81 

0 

DEL 

82 

0 

XIT 

83 

0 

BRS 

84 

0 

ENT 

85 

0 

LOC 

86 

0 

INT 

87 

0 

STO 

88 

0 

DEL 

89 

0 

LOC 

90 

0 

LOC 

91 

0 

LOD 

92 

0 

LOC 

93 

0 

LOO 

94 

0 

MUL 

95 

0 

STO 

96 

0 

DEL 

1 

OUU^UUOl 

0 

00270000 

2 

00020002 

0 

00270000 

1024 

00210400 

113 

00040071 

17 

0004001 1 

0 

002FOOOO 

128 

00033030 

1 

00020001 

0 

00270000 

2 

00023002 

0 

OU270000 

1016 

002183F8 

84 

00040054 

26 

0004001A 

0 

002F00O0 

138 

0003008A 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

1000 

002133E8 

50 

00040032 

35 

00040023 

0 

002F0000 

153 

00030099 

2 

00020002 

1 

00050001 

0 

00280000 

0 

002AOOOO 

1 

00020001 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

980 

001403D4 

0 

00280000 

0 

OO2A00OO 

68 

00040044 

0 

002E0000 

148 

00030094 

2 

00020002 

2 

00050002 

0 

002800  00 

0 

OO2A00OO 

4 

00020004 

2 

00023302 

0 

00273000 

0 

00280000 

0 

0C2A0300 

6 

00020006 

4 

00020004 

0 

00270000 

3 

00020003 

0 

00270000 

988 

0014030C 

0 

00230000 

0 

OO2A00OO 

158 

0003039E 

5 

00020005 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002A0000 

8 

00020008 

5 

00020005 

0 

00270000 

3 

00020003 

0 

00273000 

9  76 

001403D0 

0 

00280000 

0 

002A0030 

97 

00040061 

0 

002EOOOO 

133 

00030035 

2 

00020002 

3 

00050003 

0 

00230000 

0 

OO2A000O 

10 

O0O203OA 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

1008 

001403FO 

0 

00280000 

0 

002A0000 

COMM  SUBEXP  ELIM 


COMM  SUBEXP  ELIM 


173 


Vf 

U 

fcNI 

98 

0 

LOC 

99 

0 

LOC 

100 

0 

LOO 

101 

0 

STO 

102 

0 

DEL 

103 

0 

LOC 

104 

0 

LOC 

105 

0 

LOO 

106 

0 

LOC 

107 

0 

LOD 

108 

0 

MUL 

109 

0 

sro 

110 

0 

DEL 

111 

0 

XIT 

112 

0 

PRS 

113 

0 

ENT 

It* 

uucmuuoi- 

5 

00020005 

3 

00020003 

0 

00273000 

0 

00280000 

0 

002AOOOO 

9 

00020009 

2 

00020002 

0 

00270000 

3 

00023003 

0 

00270000 

992  ■ 

001483E0 

0 

00280000 

0 

002A0000 

8 

00040006 

0 

OO2E0000 

123 

00030078 

COMM    SU8EXP    ELM 


<i**********«;*#4:**#*******  ********##****<'?****<<********************»*#♦ 


FINAL  OPTIMIZATION  POOL  FOR  EACH  3L.0CK  IS: 

FINAL  POCL  FOR   BLOCKS  1  IS: 
<NULL) 


FINAL  POCL  FOR   BLOCK*  2  IS: 
A(2,*,135)   A(l,*,136) 


FINAL  POCL  FOR   BLOCK*  3  IS: 

C(  117:  118,*, 119)   A(2,*,118)   A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  4  IS: 

■C(  117: 118,*,  119  J   A(2,*,118)   A(l,*,117) 


FINAL  POOL  FOR   BLOCK*  5  IS: 

C( 117: 118,*, 119)   A(2,*,116)   A(l,*,117) 


FINAL    POCL    FOR      BLOCK*    6    IS: 

C( 117:118,*, 119)       A(2,*,118)       A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  7  IS: 

A<3,*,131)   A(2,*,132)   All,*, 133)   C ( 132: 131,*, 134) 


FINAL  POCL  FOR   BLOCK*  8  IS: 

C( 117:118,*, 119)   A(2,*,118)   A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  9  IS: 

C( 117: 118,*, 119)   A(2,*,118)   A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  10  IS: 
A(3,*,127)   A(2,*,128)   A(l,*,129) 


BASIC  BLOCK  *1 

BEGINNING  AT  0,  ENDING  AT  8 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  *2 

BEGINNING  AT  R,  ENDING  AT  16 
BLOCK  TRAVERSEO  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  *3 

BEGINNING  AT  113,  ENDING  AT  113 
BLOCK  TRAVERSED  I  TIMES 


17^4- 


1  KthfcKtNCtb: 
2 
BASIC  BLOCK  #4 

BEGINNING  AT  17,  ENDING  AT  25 
BLOCK  TRAVERSED  1  TIMES 
i  REFERENCES: 
2 
BASIC  BLOCK  #5 

BEGINNING  AT  34,  ENDING  AT  97 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #6 

BEGINNING  AT  26,  ENDING  AT  34 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #7 

BEGINNING  AT  97,  ENDING  AT  112 
BLOCK  TRAVERSED  2  TIMES 
1  REFERENCES: 
5 
BASIC  BLOCK  #8 

BEGINNING  AT  50,  ENDING  AT  68  ' 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
6 
BASIC  BLOCK  #9 

BEGINNING  AT  35,  ENDING  AT  49 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
6 
BASIC  BLOCK  #10 

BEGINNING  AT  68,  ENDING  AT  83 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
9 

•BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER  NUM5ER  OF  PASSES 

1  1 

2  1 

3  1 

4  1 

5  1 

6  1 

7  .  2 

8  1 

9  1 

10  1 

TOTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  11 

USING  THE  FIRST- IN-FIRST-OUT   BLOCK  SELECTION  ALGORITHM. 

TIME  FOR  THE  OPTIMIZATION  WAS  0.216  SECONDS. 

***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 
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***COOE    SYNTHESIS    FILTER*** 

BLOCK    SELECTION    METHOD    WILL    BE    MAXIMUM   CURRENT    POOL 

***C    OMPLETE         TABLE         OUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


***T    ABLE         D    U    M    P***    AT    LOCATION    =    0 

CONSTANTS    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>   <11>    <12>   <13>    <14> 


CONSYM 

10 

20 

30 

CONTYPE 

INT 

INT 

INT 

CONVAL 

114 

115 

lib 

CONINT 

10 

20 

30 

ADDR    TABL    <1>      <2>      <3>      <4>      < 5>      <6>      <7>      <8>      <9>      <10>   <11>    <12>    <13>    <14> 

(EMPTYJ 

VALUE  STACK  (TOP  AT  127)  ; 


CONT  STK   <i>   <2>   <3> 

<4>   <5>   <6>   <7> 

BLOCKS    10 

ENTRY     10 

EXEC  STAC  <1>   <2>   <3>   <4>   <5>   <6>   <7> 

(EMPTY) 

*#**   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF 

OP  CODE     CNS  ADR     RAW  CODE 

SET 

/ETC 

************************************ £********* 

0      0 

ENT 

C 

114 

00038072 

1      0 

TOGGLE 

257 

000B0101 

2      0 

LOC 

1 

00020001 

3     0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6      0 

INT 

0 

00050000 

7      0 

STD 

0 

00290000 

6      0 

ENT 

1 

00030001 

9      0 

LOC 

1 

00020001 

10     0 

LOD 

0 

00270000 

11     0 

LOC 

2 

00023002 

12     0 

LOD 

0 

00270000 

13     0 

GTR 

0 

00210000 

14     0 

XIT 

113 

00040071 

15     0 

XIT 

17 

00040011 

16     0 

BSC 

0 

002F0000 

17     0 

ENT 

1 

00030001 

18     0 

LOC 

1 

00020001 

19     0 

LOD 

0 

00270000 

20     0 

LOC 

2 

00020002 

21     0 

LOD 

0 

00270000 

22     0 

GTR 

0 

00210000 

23     0 

XIT 

84 

00040054 

24     0 

XIT 

26 

0004001A 

25     0 

BSC 

0 

002F0000 

26     0 

ENT 

1 

00030001 

27     0 

LOC 

1 

00020001 

28     0 

LOD 

0 

00270000 

29     0 

LOC 

2 

00020002 

30     0 

LOD 

0 

00273000 

31     0 

GTR 

0 

00210000 

32     0 

XIT 

50 

00040032 

33     0 

XIT 

35 

00040023 

34     0 

BSC 

0 

002F0000 

35     0 

ENT 

1 

00030001 

36     0 

LOC 

2 

00020002 

37     0 

INT 

1 

00050001 

38     0 

STO 

0 

00280000 

39     0 

DEL 

0 

002A0000 

40     0 

LOC 

1 

00020001 

41     0 

LOC 

2 

00023002 

<8>   <9>   <10>  <11>  <12>  <13>  <14> 


<8>   <9>   <10>  <11>  <12>  <13>  <14> 


OPTIMIZATION 


1?6 


tl 

0 

LUU 

0 

UO2/0U00 

0 

L'OC 

3 

00020003 

44 

0 

LOO 

0 

00270000 

45 

0 

MUL 

0 

00140000 

46 

0 

STO 

0 

00230000 

47 

0 

DEL 

0 

002A0000 

48 

0 

XIT 

68 

00040044 

49 

0 

BRS 

0 

002EOOOO 

50 

0 

ENT 

1 

00030001 

51 

0 

LOC 

2 

00020002 

52 

0 

INT 

2 

00050002 

53 

0 

STO 

0 

00280000 

54 

0 

DEL 

0 

002A0000 

55 

0 

LOC 

4 

00020004 

56 

0 

LOC 

2 

00020002 

57 

0 

LOO 

0 

00270000 

58 

0 

STO 

0 

00280000 

59 

0 

DEL 

0 

O02A0000 

.  60 

0 

LOC 

6 

00020006 

61 

0 

LOC 

4 

00020004 

62 

0 

LOO 

0 

00270000 

63 

0 

LOC 

3 

00020003 

64 

0 

LOO 

0 

00270000 

65 

0 

MUL 

0 

00140000 

66 

0 

STO 

0 

00280000 

67 

0 

DEL 

0 

002A0000 

68 

0 

ENT 

1 

00030001 

69 

0 

LOC 

5 

00020005 

70 

0 

LOC 

2 

00020002 

71 

0 

LOD 

0 

00270000 

72 

0 

STO 

0 

00280000 

73 

0 

DEL 

0 

002A0000 

74 

0 

LOC 

8 

00020008 

75 

0 

LOC 

5 

00020005 

76 

0 

LOD 

0 

00270000 

77 

0 

LOC 

3 

00020003 

78 

0 

LOD 

0 

00270000 

79 

0 

MUL 

0 

00140000 

80 

0 

STO 

0 

00280000 

81 

0 

DEL 

0 

002AJ000 

82 

0 

XIT 

97 

00040061 

83 

0 

BRS 

0 

002E0000 

84 

0 

ENT 

1 

00030001 

85 

0 

LCC 

2 

r\  r\  r\  ~>  r\  n,  r\  n 

86 

0 

INT 

3 

00050003 

87 

0 

STO 

- 

0 

00280000 

88 

0 

DEL 

0 

002AOOOO 

89 

0 

LOC 

10 

0002000A 

90 

0 

LOC 

3 

00020003 

91 

0 

LOD 

0 

00270000 

92 

0 

LOC 

2 

00020002 

93 

0 

LOD 

0 

00270000 

94 

0 

MUL 

0 

00140000 

95 

0 

STO 

0 

00280000 

96 

0 

DEL 

0 

OO2A000O 

97 

0 

ENT 

1 

00030001 

98 

0 

LOC 

5 

00020005 

99 

0 

LOC 

3 

0002000? 

100 

0 

LOD 

0 

00270000 

101 

0 

STO 

0 

00280000 

102 

0 

DEL 

0 

002A0000 

103 

0 

LOC 

9 

00020009 

104 

0 

LOC 

2 

00020002 

105 

0 

LOD 

0 

00270000 

106 

0 

LOC 

3 

00020003 

107 

0 

LOD 

0 

00270000 

108 

0 

MUL 

0 

00140000 

109 

0 

STO 

0 

00280000 

110 

0 

DEL 

0 

OO2A0000 

111 

0 

XIT 

8 

00040008 

112 

0 

BRS 

0 

0O2E000O 

113 

0 

ENT 

1 

000?0001 

****$*****$*< 

i  ********$**» 

'*: 

******** 

******«.**** 

************************** 


BASIC   BLOCK    #1 

BEGINNING     AT    0,    ENDING    AT    0 
BLOCK    TRAVERSED    0    TIMES 
0    REFERENCES: 


***E    NO         OF 


COMPLETE 


TABLE 


0    U    M    P*** 


B+2 

0 

LOC 

B*3 

0 

INT 

B+4 

0 

STD 

B  +  5 

0 

LOC 

B+6 

0 

INT 

B*7 

0 

STD 

00020001 
00050000 
00290000 
00020002 
00050000 
00290000 


177 


ti  +  ti 


I  tNI 


I  u 


INITIAL  CURRENT  OPTIMIZED  POOL 
A(2,*,iitU   Ad,*, 117) 


I  uoo^uuoi 

TO  BE  USED 


I 

FOR 


BLOCK*  2  IS: 


2  (PASS  1) 

00036076 
00020001 
00270000 
00020002 
00270000 
00210000 
00040071 
00040011 
002F0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   8L0CKS  3  IS: 
C(  117:118,*, 119)   A(2,*,11S)   Ad,*, 117) 


CONTROL    AT 

8,     FROM    BLK 

1 

TO    BLK 

C+8            0 

ENT 

C 

118 

B*9            0 

LOC 

1 

B*10         0 

LOD 

0 

B  +  ll          0 

LOC 

2 

B  +  12         0 

LOD 

0 

B*13         0 

GTR 

0 

B  +  14         0 

XIT 

113 

B  +  15         0 

XIT 

17 

BH6         0 

BSC 

0 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
£(117:118,*, 119)   A(2,*,118)   Ad,*, 117) 


BLOCKS  4  IS: 


CONTROL    AT 

17, 

C  +  17 

0 

ENT 

B  +  18 

0 

LOC 

B+19 

0 

LOD 

B*20 

0 

LOC 

B*21 

0 

LOD 

B+22 

0 

GTR 

B  +  23 

0 

XIT 

B+24 

0 

XIT 

B+25 

0 

BSC 

FROM  BLK  2  TO 
128 
1 
0 
2 
0 
0 

84 
26 
0 


BLK 


4  (PASS 

00038080 

00020001 

00270000 

00020002 

00270000 

00210000 

00040054 

0004001A 

002F0000 


1  ) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C(  117:  118,*,  119)   A(2,*,118)   Ad,*, 117) 


BLOCKS  5  IS: 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C(117:118,*,119)   A(2,*,118)   All, *, 117) 

CONTROL  AT  26,  FROM  BLK  4  TO  BLK  6  (PASS  1) 


BLOCKS  6  IS: 


C*26 

0 

ENT 

B  +  27 

0 

LOC 

B+28 

0 

LOD 

B+29 

0 

LOC 

B*30 

0 

LOD 

B  +  31 

0 

GTR 

B  +  32 

0 

XIT 

B+33 

0 

XIT 

B+34 

0 

BSC 

138 

1 

0 

2 

0" 

0 

50 

35 

0 


0003608A 
00020001 
002^0000 
00020002 
00270000 
00210000 
00040032 
00040023 
002F0000 


INITIAL  CURRENT  OPTIMIZED  POOL  TO    BE  USED  FOR 
C(117:118,*,119)   A(2,*,118)   Ad,*, 117) 


BLOCKS    7     IS: 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR 
C(117:118,*,119)       A(2,*,118)       All,*, 117) 

FROM    BLK    6    TO    BLK    8    (PASS    1) 


BLOCKS  8  IS: 


CONTROL    AT 

35, 

C+35 

0 

ENT 

B+36 

0 

LOC 

B+37 

0 

INT 

B+38 

0 

STO 

B+39 

0 

DEL 

B+40 

0 

LOC 

B+41 

0 

LOC 

B+42 

0 

LOD 

B  +  43 

0 

LOC 

B+44 

0 

LOD 

B+45 

0 

MUL 

B+46 

0 

STO 

B*47 

0 

DEL 

B+48 

0 

XIT 

B+49 

0 

BRS 

148 

2 

1 

0 

0 

1 

2 

0 

3 

0 

0 

0 

0 

68 

0 


00038094 
00020002 
00053001 
00280000 
002AOOOO 
00020001 
00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
002A0000 
00043344 
002E0000 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C( 117:118,*, 119)   C(  114:120,*, 121)   A(l,*,121) 


BLOCKS  9  IS: 
,120) 


A(3,* 


A( 2 ,114, 114) 


CONTROL    AT 

68,     FROM    BLK    8    TO 

C+6  8          0 

ENT 

C 

153 

B*6  9         0 

LOC 

5 

B*70         0 

LOC 

2 

B+71          0 

LOD 

0 

B  +  72         0 

sro 

0 

B*73         0 

DEL 

0 

B  +  74         0 

LOC 

8 

B  +  75         0 

LOC 

5 

BLK 


9  (PASS  1) 

00038099 
00020005 
00020002 
00270000 
00280000 
OO2AO0O0 
00020008 
00020005 


1?8 


0*  It,            V 

LUU 

u 

uu^ /ouuu 

B*77    0 

LOC  * 

3 

00020003 

B*78    0 

LOO 

0 

00270000 

B*79    0 

MUL 

0 

00140000 

B*80    0 

STO 

0 

00280000 

B*81    0 

DEL 

0 

002A0000 

B*8  2    0 

XIT 

97 

00040061 

B*83    0 

BRS 

0 

002E0000 

• 

INITIAL  CURRENT  OPTIMIZED  POOL  ' 

ro  BE  USED  FOR   BLOCK*  10  IS: 

CI  114:120,*, 121 )   C <  1 1 7 : 1 18,* ,  1 19 )   A(8,*,12l)   A(5,U4,114) 

A(3,*,120)   A(2,11.4,114) 

CONTROL  AT  97,  FROM  BLK  9  TO  BLI 

i    10  (PASS  1 

C*97    0 

ENT 

C 

158 

0003809E 

B+98    0 

LOC 

5 

>  00020005 

B+99    0 

LOC 

3 

00020003 

B  +  100   0 

LOD 

0 

00270000 

BH01   0 

STO 

0 

00280000 

B*102   0 

DEL 

0 

OO2A000O 

B*103   0 

LOC 

9 

00020009 

BU04   C 

LOC 

2 

00020002 

B+105   0 

LOD 

0 

00270000 

B*106   0 

LOC 

3 

0C020003 

B+107   0 

LOD 

0 

00270000 

6*108   0 

MUL 

0 

00140000 

B+109   0 

STO 

0 

00280000 

B+110   0 

DEL 

0 

002AOOOO 

6  +  111   0 

XIT 

8 

00040008 

B  +  112   0 

BRS 

0 

002E0000 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  10  IS: 

- 

C(  117:118,*, 119)   C{  114:120,*, 121)   A(9,*,121)   A(5,*,120) 

All,*, 121)   A(3,*,120)   A(2,114 

114) 

CURRENT  POOL  FOR  BLOCK*  2  IS: 

AI2,*,118)   All,*, 117) 

AFTER  PERFORMING  THE  MEET  OPERAT] 

ON: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLO  CURRENT  POOL 

CONTROL  AT  50,  FROM  SLK  6  TO  BLh 

C  7  (PASS  1) 

C+50    0 

ENT 

C 

143 

0003608F 

B*51    0 

LOC 

2 

C0020002 

B  +  52    0 

INT 

2 

0005J002 

6*53    0 

STO 

0 

00280000 

8  +  54    0 

DEL 

0 

002AOOOO 

• 

B  +  55    0 

LOC 

4 

00020004 

6  +  56    0 

LOC 

2 

00020002 

8+57    0 

LOO 

0 

00270000 

B+58    0 

STO 

0 

00280000 

B+59    0 

DEL 

0 

002AOOOO 

B+60    0 

LOC 

6 

00020006 

B+61    0 

LOC 

4 

00020004 

6+62    0 

LOD 

0 

00270000 

. 

B+63    0 

LOC 

3 

00020003 

B+64    0 

LUD 

0 

00270000 

B+65    0 

MUL 

0 

00140000 

6+66    0 

STO 

0 

00280000 

8+67    0 

DEL 

0 

002A0000 

B+68    0 

ENT 

c 

153 

00038099 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  7  IS: 

C( 117:118,*, 119)   CI  115:124,*,  i; 

15)       A(3,*,i; 

!4)   A(6,*,125) 

AI2, 115,115)   A(l,*,117) 

• 

CURRENT  POOL  FOR  BLOCK*  9  IS: 

C(  117:118, * 

',119}   C(ll< 

ti  ] 

20,*,  i; 

m  A(i,*,i; 

!1)   A(3,*,120) 

a:i,*,i21) 


A(8,*,121) 


A(4,115,115) 


A(2,114,U4) 


AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  FOP   BLOCK*  9  IS: 
A(l,*,126)   A(3,*,127)   A(2,*,128)   C(  128 : 12 7,* , 129) 


CONTROL  AT  68,  FROM  BLK  7  TO  BLK 


C+6  8 
6+69 
B  +  70 
B+71 
B+72 
8+73 


ENT 
LOC 
LOC 
LOD 
STO 
DEL 


153 

5 

2 

0 

0 

0 


9  (PASS  2) 

00038099 
00020005 
00020002 
00270000 
00280000 
O02A0000 
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O+lh 

U 

LUL 

B  +  75 

0 

LOC 

B+76 

0 

LOO 

8*77 

0 

LOC 

B*78 

0 

LOD 

B+79 

0 

MUL 

B*80 

0 

STO 

6  +  81 

0 

DEL 

B+82 

0 

XIT 

B  +  83 

0 

BRS 

ti 

OOO^uJua 

5 

00020005 

0 

00270000 

3 

00020003 

0 

00270000 

992 

O01483E0 

0 

00280000 

0 

002A0000 

97 

00040061 

0 

002E0000 

COMM    SUBEXP    ELIM 


BEFORE    THE    MEET    OPERATION: 

OUTPUT     POOL    FROM    BLOCK*    9    IS: 

C( 128:127,*, 129)       A<8,*,129)       A(5,*,128)       All,*, 126)       A(3,*,127)       A(2,*,128) 


CURRENT    POOL    FOR    BLOCK*    10    IS: 

C< 114: 120,*, 121  J       C( 117: 118,*, 119) 

A<3,*,120)       A(2,114,114) 

AFTER  PERFORMING  THE  MEET  OPERATION: 


A(8,*,121)       A<5,114,114)       Alii*, 121) 


NEW    CURRENT    POOL/INPUT    POOL    FOR       BLOCK*     10    IS: 


A(8,*,130) 

A(5 

,*,131) 

Ai  1, 

CONTROL  AT 

97, 

FROM  BLK  < 

J  TO 

C+97    0 

ENT 

C 

158 

B+98    0 

LOC 

5 

B  +  99    0 

LOC 

3 

B+100   0 

LOD 

0 

B+101   0 

STO 

0 

B  +  102   0 

DEL 

0 

BU03   0 

LOC 

9 

6*104   0 

LOC 

2 

8  +  105   0 

LOD 

0 

6  +  106   0 

LOC 

3 

B+107   0 

LOD 

0 

6  +  108   0 

MUL 

C 

984 

6  +  109   0 

STO 

0 

6+110   0 

DEL 

0 

8  +  111   0 

XIT 

8 

B  +  112   0 

BRS 

0 

BEFORE  THE  f 

1EET 

OPERATIC 

IN 

132)       A(3,*il33J       A(2,*,13U 


TO    BLK    10    (PASS    2) 

0003809E 
00020005 
00020003 
00270000 
00280000 
002A0000 
00020009 
00020002 
00270000 
00020003 
00270000 
OOK3303 
00280000 
O02A0O00 
00040008 
002EOOOO 


COMM  SUBEXP  ELIM 


OUTPUT  POOL  FROM  BLOCK*  10  IS: 
C( 131:133,*, 134)   A(9,*,134) 
A(2t*f  131) 


A(5t*il33)   A(8,*,130)   A(l,*,132)   A(3,*,133) 


CURRENT  POOL  FOR  BLOCK*  2  IS: 
A(2,*,122)   All,*, 123) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 


CONTROL  AT 

64.  FROM  BLK  4  TO  BLK  5  (PASS  1) 

C  +  84    0 

ENT 

C 

133 

00038035 

B  +  85    0 

LOC 

2 

00020002 

6  +  86    0 

INT 

3 

00050003 

8+87    0 

STO 

0 

00280000 

6  +  88  .  0 

DEL 

0 

002A0000 

6+89    0 

LOC 

10 

0002300A 

6+90    0 

LOC 

3 

00020003 

6+91    0 

LOD 

0 

00270000 

B  +  92    0 

LOC 

2 

00020002 

B+93    0 

LOD 

0 

00270000 

B+94    0 

MUL 

0 

00143000 

B+95    0 

STO 

0 

00280000 

B+96    0 

DEL 

0 

002A0000 

B+97    0 

ENT 

C 

158 

0003809E 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  8L0CK*  5  IS: 

C(  117:118,*, 119)   C( 137: 116,*,  I! 

58)   A(3,*,l 

AI  1,*, 117) 

137)      A(10,*«138)       A(2, 116,116) 


CURRENT    POOL    FOR    BLOCK*     10    IS: 

A<8,*,130)       A(5,*,131)       A(l,*,132)       A(3,*,133)       A<2,*,131) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  FOR   8L0CK*  10  IS: 
A(l,*,139)   A(3,*,140)   A(2,*,141) 
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CONTROL  AT 

97,  FROM 

C*97 

0 

ENT 

B*98 

0 

LOC 

B*99 

0 

LOC 

['.♦100 

0 

LOO 

B  +  101 

0 

STO 

B*102 

0 

DEL 

BH03 

0 

LOC 

BH04 

0 

LOC 

BM05 

0 

LOO 

BH06 

0 

LOC 

BU07 

0 

LOO 

B*108 

0 

MUL 

BH09 

0 

STO 

BfllO 

0 

DEL 

B  +  lll 

0 

XIT 

B  +  112 

0 

BRS 

15d 

5 

3 

0 

0 

0 

9 

2 

0 

3 

0 

984 

0 

0 


BEFORE  THE  MEET  OPERATION: 
OUTPUT  POOL  FROM  BLOCK/*  10 


BLK  5  TO  eLK  10  (PASS  3) 


0003809E 
00020005 
00020033 
00270000 
00280000 
002A0000 
00020009 
00020002 
00270000 
00020003 
00270000 
00l4d3D8 
00280000 
002AOOOO 
00040008 
002E0000 


C( 141: 140,*, 142)   A(9,*,142)   A(5,*,140)   A<1,*,139)   A(3,*,140)   A(2,*,141) 


CURRENT    POOL    FOR    BLOCKS    2    IS: 
A(2,*,135)       A(lt*,136) 

AFTER    PERFORMING    THE    MEET    OPERATION: 

NEW    CURRENT    POOL/INPUT    POOL    IS    THE    SAME    AS    OLD   CURRENT    POOL 

CONTROL    AT    113,    FROM    BLK    2    TO    BLK    3    (PASS     1) 
C  +  113       0         |ENT  JC 1 123  |    OOC3307B       I 

FINAL  OPTIMIZATION  RESULTS 


OPTIMIZATION  AT  22 

(117,118113,119) 

OPTIMIZATION  AT  31 

(117,1161  13,119) 

OPTIMIZATION  AT  79 

(127,128145,129) 


COMM  SUBEXP  ELIM 
COMM  SUBEXP  ELIM 
COMM  SUBEXP  ELIM 


*** 
LOC 

***** 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 


*   FORMA 
OFF 
SET 

******** 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


TTED  INTE 
OP  CODE 

********* 

ENT 

TOGGLE 

LOC 

INT 

STD 

LOC 

INT 

STD 

ENT 

LOC 

LOO 

LOC 

LOO 

GTR 

XIT 

XI  T 

BSC 

ENT 

LOC 

LOO 

LOC 

LOD 

GTR 

XIT 

XIT 

BSC 

ENT 

LOC 

LOD 

LOC 

LOO 

GTR 

XIT 


RMEDIATE  CODE  DUMP   **** 

CNS  ADR     RAW  CODE      OPTIMIZATION 
/ETC  TVPE 

************************************************ 

114      00030072 
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00060101 

1 

00020001 

0 

00050000 

0 

00290000 

2 

00020002 

0 

00050000 

0 

00290000 

118 

00030076 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

1024 

00210400 

113 

00040071 

17 

00040011 

0 

002F0000 

128 

00030080 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

1016 

002183F8 

84 

0004J054 

26 

0004001A 

0 

002F0000 

138 

0003008A 

I 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

1008 

002183FO 

50 

00040032 

COMM  SUBEXP  ELIM 


COMM  SUBEXP  ELIM 
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33 

U 

ai  r 

35 

UUO*HJl>«i3 

34 

0 

B  SC- 

0 

OO2F0OOO 

35 

0 

ENT 

148 

00030094 

36 

0 

LOC 

2 

00020002 

37 

0 

INT 

1 

00050001 

38 

0 

STO 

0 

00280000 

39 

0 

DEL 

0 

002A00U0 

40 

0 

LOC 

1 

00020001 

41 

0 

LOC 

2 

00020002 

42 

0 

LOO 

0 

00270000 

43 

0 

LOC 

3 

00020003 

44 

0 

LOO 

0 

00270000 

45 

0 

MUL 

1000 

001403E8 

46 

0 

STO 

0 

00280000 

47 

0 

DEL 

0 

OO2A00OO 

48 

0 

XIT 

68 

00040044 

49 

0 

BRS 

0 

002E0000 

50 

0 

ENT 

143 

0003008F 

51 

0 

LOC 

2 

00020002 

52 

0 

INT 

2 

00050002 

53 

0 

STO 

0 

00280000 

54 

0 

DEL 

0 

002AOOOO 

55 

0 

LOC 

4 

0002000-V 

56 

0 

LOC 

2 

00020002 

57 

0 

LOD 

0 

00270000 

58 

0 

STO 

0 

00250000 

59 

0 

DEL 

0 

OO2AO00O 

60 

0 

LOC 

6 

00020006 

61 

0 

LOC 

4 

00020004 

62 

0 

LOD 

0 

00270000 

63 

0 

LOC 

3 

00020003 

64 

0 

LOD 

0 

00270000 

65 

0 

MUL 

980 

001403D4 

66 

0 

STO 

0 

- 002&0000 

67 

0 

DEL 

0 

002AOOOO 

68 

0 

ENT 

153 

00030099 

69 

0 

LOC 

5 

00020005 

70 

0 

LOC 

2 

00020002 

71 

0 

LOD 

0 

00270000 

72 

0 

STO 

0 

00280000 

73 

0 

DEL 

0 

002A0000 

74 

0 

LOC 

8 

00020008 

75 

0 

LOC 

5 

00020005 

76 

0 

LOO 

0 

00270000 

77 

0 

LOC 

3 

00020003 

78 

0 

LOD 

0. 

00270000 

79 

0 

MUL 

C 

992 

001483E0 

80 

0 

STO 

0 

00280000 

81 

0 

DEL 

0 

002A0000 

82 

0 

XIT 

97 

00040061 

83 

0 

BRS 

0 

002E0000 

84 

0 

ENT 

133 

00030035 

85 

0 

LOC 

2 

00020002 

86 

0 

INT 

3 

00050003 

87 

0 

STO 

0 

00280000 

88 

0 

DEL 

0 

002A0000 

89 

0 

LOC 

10 

0002000A 

90 

0 

LOC 

3 

00020003 

91 

0 

LOO 

0 

00270000 

92 

0 

LOC 

2 

00020002 

93 

0 

LOD 

0 

00270000 

94 

0 

MUL 

976 

001403DO 

95 

0 

STO 

0 

00280000 

96 

0 

DEL 

0 

002A0000 

97 

0 

ENT 

158 

0003009E 

98 

0 

LOC 

5 

00020005 

99 

0 

LOC 

3 

00020003 

100 

0 

LOD 

0 

00270000 

101 

0 

STO 

0 

00280000 

102 

0 

DEL 

0 

002AOOOO 

103 

0 

LOC 

9 

00020009 

104 

0 

LOC 

2 

00020002 

105 

0 

LOD 

0 

00270000 

106 

0 

LOC 

3 

00020003 

107 

0 

LOD 

0 

00270000 

108 

0 

MUL 

984 

001403D8 

109 

0 

STO 

0 

00200000 

110 

0 

DEL 

0 

002A0000 

111 

0 

XIT 

8 

00040008 

112 

0 

BRS 

0 

002E0000 

113 

0 

ENT 

123 

0003007B 

**********  #*> 

}e***  ******  **i 

f  * 

*******J 

************ 

COMM    SUBEXP   ELIM 


************************* 


FINAL    OPTIMIZATION    POOL    FOR    EACH    BLOCK     IS: 


182 


FINAL  POCL  FOR   BLOCK*  1  IS: 
(NULL) 


FINAL  POCL  FOR   BLOCK*  2  IS: 
A(2,*,143)   Ad,*, 144) 


FI-NAL  POCL  FOR   BLOCK*  3  IS: 

C( 117:118,*, 119)   A(2,*,118)   Ad,*, 117) 


FINAL    POCL    FOR       BLOCK*    4    IS: 
0(117:118,*. 119)       A(2f«tll81       Ad,*, 117) 


FINAL  POOL  FOR   BLOCK*  5  IS: 

C(  117:118,*, 119)   A(2,*,118)   A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  6  IS: 

C(  117:118,*, 119)   A(2,*,U8)   Ad,*, 11,7) 


FINAL  POCL  FOR   BLOCK*  7  IS: 
C(117:118,*,119)   A(2,*,118)   A(l,*,117) 


FINAL  POCL  FOR   BLOCK*  8  IS: 

C( 117:118,*, 119)   A(2,*,118)   All,*, 117) 


FINAL    POCL    FOR      BLOCK*    9    IS: 

Ad,*, 126)       A13.*,1271       A(2,*,128)       C  (  1  28: 127,*,  1  29) 


FINAL  POCL  FOR   BLOCK*  10  IS: 
Ad,*, 139)   A(3,*,140)   A(2,*,141) 


BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  AT  8 
BLOCK  TRAVERSEO  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  *2 

BEGINNING  AT  8,  ENDING  AT  16 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  *3 

BEGINNING  AT  113,  ENDING  AT  113 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  *4 

BEGINNING  AT  17,  ENDING  AT  25 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  *5 

BEGINNING  AT  34,  ENDING  AT  97 
BLOCK  TRAVERSED  1  TIMES 
I  REFERENCES: 
4 
BASIC  BLOCK  *6 

BEGINNING  AT  26,  ENDING  AT  34 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  #7 

BEGINNING  AT  50,  ENDING  AT  68 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
6 
BASIC  BLOCK  *8 

BEGINNING  AT  35,  ENDING  AT  49 
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BLOCK  IRAVtKitU  l  firttS 

1  REFERENCES: 
6 
BASIC  BLOCK  #9 

BEGINNING  AT  68,  ENDING  AT  83 

BLOCK  TRAVERSED  2  TIMES 

1  REFERENCES: 
6 
BASIC  BLOCK  #10 

BEGINNING  AT  97,  ENDING  AT  112 

BLOCK  TRAVERSEO  3  TIMES 

1  REFERENCES: 


BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER 

1 
2 

4 
5 
6 

7 
8 
9 
10 


NUMBER  OF  PASSES 


2 
3 


TOTAL  NUMBER  OF  SLOCKS  PROCESSED  WAS  13 

USING  THE  MAXIMUM  CURRENT  PGGL   BLOCK  SELECTION  ALGORITHM. 

TIME  FOR  THE  OPTIMIZATION  WAS  0.268  SECONDS. 

***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 
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CARD 

BL 

SYL 

1 

1 

0 

0    {COMMENT              TEST    PROGR 

SEXECl 

rJTE 

3 

0 

1 

BEGIN    LOCAL         A,B,C,0; 

4 

1 

A 

:=    l; 

5 

5 

B 

:=    2; 

6 

9 

C 

:=    3; 

7 

13 

A    . 

=   A   *   5; 

8 

20 

A 

•=   A   +  b; 

9 

28 

B 

:=   B   +  C; 

10 

36 

B 

:=   8   ♦   1; 

11 

43 

C 

=  a   *  3; 

12 

50 

C    : 

=   C    +  6; 

13 

57 

D 

.=    10; 

14 

61 

IF    A    GTR    B    THEN 

15 

66 

BEGIN 

16 

70 

D    :=    B   *    C; 

17 

78 

END; 

18 

79 

A    :=    C    *    BJ 

19 

87 

END 

20 

87 

EOF 

CODE    F 

:ILE 

i    COPIED     (87    WORDS) 

CONSTANT 

TABLE    COPIED     ( 12     WORDS) 

2    RECORD' 

i    WRITTEN    INTO    FILE     1 

END    OF 

CC 

MPILA1 

IGf> 

i    FEBRUARY    12,     1975. 

#  7 


CLOCK  TIME  =  20:45:50.31 


20  CARDS  WERE  READ. 

NO  ERRORS  WERE  DETECTED. 
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***CODE    SYNTHESIS    FILTER*** 
BLOCK    SELECTION    METHOD    WILL    BE    LAST-IN-FIRST-OUT 

***C    OMPLETE         TABLE         DUM    P*** 

OUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


***T    ABLE 


DUM    P***    AT    LOCATION    =    0 


CONSTANTS    <1>      <2>       <3>       <4>      <  5>       <6>       <7>      <8>       <9>      <10>    <11>    <12>    <13>    <14> 


CONSYM 
CONTYPE 
CONVAL 
CONINT 


1  2 

INT  INT 

63  89 

1  2 


3 

5 

6 

INT 

INT 

INT 

90 

91 

92 

3 

5 

6 

10 
INT 
93 
10 


ADDR    TABL    <1>      <2>       <3>       <4>      <5>      <6>       <7>      <8>       <9>      <10>    <11>    <12>    <13>    <K> 
(EMPTY) 

VALUE    STACK    (TOP    AT    127)  J 

CONT    STK      <1>      <2>      <3>       <4>      <  5>       <6>       <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 

BLOCK*  10 

ENTRY  10 

EXEC    STAC    <1>      <2>      <3>       <4>      <5>      <6>      <7>      <8>       <9>      <10>    <11>    <12>   <13>    <14> 
(EMPTY) 


**** 

FORMATTED    INTERMEDIATE    CODE    DUMP       **** 

LOC 

OFF             CP    CODE            CNS    ADR 
SET                                                      /ETC 

RAW    CODE 

***##*»)!t)J;********#**********^*#**^<-**  *******■*« 

0 

0 

ENT 

C 

88 

00038058 

1 

0 

TOGGLE 

257 

OOOBOlOl 

2 

0 

LOC 

1 

00020001 

3 

0 

INT 

1 

00050001 

.     4 

0 

STO 

0 

00280000 

5 

0 

DEL 

0 

002A0000 

6 

0 

LOC 

2 

00020002 

7 

0 

INT 

2 

00050002 

8 

0 

STO 

0 

00280000 

9 

0 

DEL 

0 

00240000 

10 

0 

LOC 

3 

00020003 

11 

0 

INT 

3 

00050003 

12 

0 

STO 

0 

00280000 

13 

0 

DEL 

0 

00260000 

14 

0 

LOC 

1 

00020001 

15 

0 

LOC 

1 

00020001 

16 

0 

LOD 

0 

00270000 

17 

0 

INT 

4 

00050004 

18 

0 

MUL 

0 

00140000 

19 

0 

STO 

0 

00280000 

20 

0 

DEL 

0 

002A0000 

21 

0 

LOC 

1 

00020001 

22 

0 

LOC 

1 

00020001 

23 

0 

LOD 

0 

00270000 

24 

0 

LOC 

2 

00020002 

25 

0 

LOD 

0 

00270000 

26 

0 

ADD 

0 

00100000 

27 

0 

STO 

0 

00280000 

28 

0 

DEL 

0 

002A0000 

29 

0 

LOC 

2 

00020002 

30 

0 

LOC 

2 

00020002 

31 

0 

LOD 

0 

00270000 

32 

0 

LOC 

3 

00020003 

33 

0 

LOD 

0 

00270000 

34 

0 

ADD 

0 

00100000 

35 

0 

STO 

0 

00280000 

36 

0 

DEL 

0 

002AOOOO 

37 

0 

LOC 

2 

00020002 

38 

0 

LOC 

2 

00020002 

39 

0 

LOD 

0 

00270000 

40 

0 

INT 

1 

00050001 

41 

0 

ADD 

0 

00100000 

OPTIMIZATION 
TYPE 


186 


Hi 

u 

SIO 

43 

0 

DEL 

44 

0 

LOC 

45 

0 

LOC 

46 

0 

LOD 

47 

0 

INT 

48 

0 

MUL 

49 

0 

STO 

50 

0 

DEL 

51 

0 

LOC 

52 

0 

LOC 

53 

0 

LOD 

54 

0 

INT 

55 

0 

ADD 

56 

0 

STO 

57 

0 

DEL  . 

58 

0 

LOC 

59 

0 

INT 

60 

0 

STO 

61 

0 

DEL 

62 

0 

LOC 

63 

0 

LOD 

64 

0 

LOC 

65 

0 

LOD 

66 

0 

GTR 

67 

0 

XIT 

68 

0 

XIT 

69 

0 

8SC 

70 

0 

ENT 

71 

0 

LOC 

72 

0 

LOC 

R 

0 

LOD 

0 

LOC 

75 

0 

LOD 

76 

0 

MUL 

77 

0 

STO 

78 

0 

DEL 

79 

0 

ENT 

80 

0 

LOC 

81 

0 

LOC 

82 

0 

LOD 

83 

0 

LOC 

84 

0 

LOD 

85 

0 

MUL 

66 

0 

STO 

87 

0 

DEL 

I************ 

i ******  * 

u  oo2«uuuo 

0  OO2A00O0 
3  00020003 

1  00023001 
0  0027J000 
3  00050003 
0  00140000 
0  00280000 
0  0O2A00O0 
3  00020003 

3  00020003 
0  00270000 

5  00050005 
0  00100000 
0  00280000 
0  0O2A0000 

4  00020004 

6  00050006 
0  00280000 

0  OO2A0000 

1  00020001 
0  00270000 

2  00020002 
0  00270000 
0  00210000 
79  0004004F 
70  00040046 

0  002F0000 

1  00030001 
4  00020004 

2  00020002 
0  00270000 

3  00020003 
0  00270000 
0  00140000 
0  00280000 

0  002A0000 

1  00030001 

1  00020001 
3  00020003 
0  00270000 

2  00020002 
0  00270000 
0  00140000 
C  00280000 
0  OO2A000O 

************************************************** 


BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  Al 
BLOCK  TRAVERSED  0  TIMES 
0  REFERENCES: 


***E 

N  D    OF 

B+2 

0 

LOC 

B+3 

0 

INT 

B+4 

0 

STO 

B*5 

0 

DEL 

B*6 

0 

LOC 

B  +  7 

0 

INT 

B  +  8 

0 

STO 

B+9 

0 

DEL 

B  +  10 

0 

LOC 

B«-ll 

0 

INT 

B+12 

0 

STO 

B  +  13 

0 

DEL 

B  +  14 

0 

LOC 

B  +  15 

0 

LOC 

B  +  16 

0 

LOD 

B  +  17 

0 

INT 

B  +  18 

0 

MUL 

B  +  19 

0 

STO 

B  +  20 

0 

DEL 

B  +  21 

0 

LOC 

B+22 

0 

LOC 

B*23 

0 

LOD 

B+24 

0 

LOC 

B  +  25 

0 

LOD 

B*26 

0 

ADD 

B+27 

0 

STO 

6*28 

0 

DEL 

B+29 

0 

LOC 

B«-30 

0 

LOC 

B*31 

0 

LOD 

B*32 
B*33 

0 

LOC 

0 

LOD 

E  T  E 

TABLE 

D  U  M  P*** 

1 

00020001 

1 

00050001 

0 

00280000 

0  ' 

002A0000 

2 

00020002 

2 

00050002 

0 

00280000 

0 

OO2A00O0 

3 

00020003 

3 

00050003 

0 

00280000 

0 

OO2A00O0 

1 

00020001 

1 

00020001 

0 

00270000 

4 

00050004 

0 

00140000 

0 

00280000 

0 

OO2A00OO 

1 

00020001 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00100000 

0 

00280000 

0 

OO2A00O0 

2 

00020002 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

I87 


BOf 

U 

AUU 

B*35 

0 

STO 

B*36 

0 

DEL 

B+37 

0 

LOC 

B*38 

0 

LOC 

B+39 

0 

LOD 

B+40 

0 

INT 

B+41 

0 

ADO 

B+42 

0 

STO 

B*43 

0 

DEL 

B+44 

0 

LOC 

B+45 

0 

LOC 

B+46 

0 

LOD 

B+47 

0 

INT 

B+4  8 

0 

MUL 

B*49 

0 

STO 

B*50 

0 

DEL 

B+51 

0 

LOC 

6*52 

0 

LOC 

B+53 

0 

LOD 

B  +  54 

0 

INT 

B*55 

0 

ADD 

B  +  56 

0 

STO 

B+57 

0 

DEL 

B+58 

0 

LOC 

B+59 

0 

INT 

B+6  0 

0 

STO 

B+61 

0 

DEL 

B+62 

0 

LOC 

B+63 

0 

LOD 

B+64 

0 

LOC 

B+65 

0 

LOD 

B+66 

0 

GTR 

B+67 

0 

XIT 

B+68 

0 

XIT 

B*69 

0 

BSC 

U 

UU1UUUUU 

0 

00280000 

0 

002AOOOO 

2 

00020002 

2 

00020002 

0 

00270000 

1 

00050001 

0 

00100000 

0 

00280000 

0 

O02A00OO 

3 

00020003 

1 

00020001 

0 

00270000 

3 

00050003 

0 

00140000 

0 

00280000 

0 

002AOOOO 

3 

0G020003 

3 

00020003 

0 

00270000 

5 

00050005 

0 

00100000 

0 

00280000 

0 

0O2A0000 

4 

00020004 

6 

00050006 

0 

00280000 

0 

002A0000 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

79 

0004004F 

70 

00040046 

0 

002F0000 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOR       BLOCK*    2     IS: 

C(68:91,*,91)       CI  91 : 89,* ,96)       CI  39 : 90, * , 91 )       C( 9 1 : 88 ,* , 92 )       C( 96 :90, * , 1 00) 
C(100:92,*,  102)       C (96 : 92  ,* , 104  )       A(4,93,93)       A(3,102,102)       A(2,92,92) 
A(l,96,96) 

FROM    BLK    1 


CONTROL  AT 

70, 

C  +  70 

0 

ENT 

B+71 

0 

LOC 

B  +  72 

0 

LOC 

B+73 

0 

LOD 

B  +  74 

0 

LOC 

B+75 

0 

LOD 

B  +  76 

0 

MUL 

B+77 

0 

STO 

B  +  78 

0 

DEL 

B  +  79 

0 

ENT 

TO  BLK  2  (PASS  1) 

92 

0003805C 

4 

00020004 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

0O2A0000 

1 

00030001 

INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    USED    FOP       BLOCK*    3     IS: 

C( 96:92,*, 104)       C(  100:9 2 ,* , 102 )       C( 96: 90 , * , 1 00)       C ( 9 1 : 88  ,* , 92 )        C ( 89 : 90 , * , 91 ) 
C(91:89,*,96)       C( 88: 91 , *  ,91)       C( 92: 102 , * , 106)       A(4,106,106)       A(3, 102,102) 
A(2,92,92)       Ad, 96, 96) 

FROM    BLK    2 


CONTROL  AT 

79, 

C+79 

0 

ENT 

B*80 

0 

LOC 

B+81 

0 

LOC 

B+82 

0 

LOD 

B  +  83 

0 

LOC 

B+84 

0 

LOD 

B  +  85 

0 

MUL 

B+86 

0 

STO 

B+87 

0 

DEL 

TO  BLK  3  (PASS  1) 

97 

00033061 

1 

00020001 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

FINAL  OPTIMIZATION  RESULTS 


OPTIMIZATION  AT  18 

(88,911 18,91  ) 

OPTIMIZATION    AT    26 

(89,91)26,96) 

OPTIMIZATION    AT    34 

(89,901 34,91  ) 

OPTIMIZATION  AT  41 

(88,91141,92) 


CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
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UFIlPU£A»iUN     Al      fti 

(96,90148,100) 

OPTIMIZATION    AT    55 

(92,100155,102) 

OPTIMIZATION    AT    66 

(96,92  166,104) 

OPTIMIZATION    AT    76 

(102,92176,106) 

OPTIMIZATION    AT    85 

(102,92176,106) 


CONSTANT    PROPAGATION 
CONSTANT    PROPAGATION 
CONSTANT    PROPAGATION       v 
CONSTANT    PROPAGATION 
COMM    SUBEXP    ELIM    £    CONS    PROP 


**** 

FORMATTED    INTERMEDIATE    CODE    DUMP       **** 

LOC 

OFF 

OP    CODE            CNS    ADR 

RAW    CODE 

OPTIMIZATION 

SET 

/ETC 

TYPE 

*************************** 

0 

0 

ENT 

88 

00030058 

1 

0 

TOGGLE 

257 

000B0101 

2 

0 

LOC 

1 

00023001 

3 

0 

INT 

1 

00050001 

4 

0 

STO 

0 

00280000 

5 

0 

DEL 

0 

O02A0000 

6 

0 

LOC 

2 

00020002 

7 

0 

INT 

2 

00050002 

8 

0 

STO 

0 

00280000 

9 

0 

DEL 

0 

002AOOQO 

10 

0 

LOC 

3 

00020003 

11 

0 

INT 

3 

00050003 

12 

0 

STO 

0 

00280000 

13 

0 

DEL 

0 

OO2A0OOO 

14 

0 

LOC 

1 

00020001 

15 

0 

LOC 

1 

00020001 

16 

0 

LOD 

0 

00270000 

17 

0 

INT 

4 

00050004 

18 

0 

MUL 

C 

1024 

00148400 

CONSTANT    PROPAGATION 

19 

0 

STO 

0 

00280000 

20 

0 

DEL 

0 

002A0000 

21 

0 

LOC 

1 

00020001 

22 

0 

LOC 

1 

00020001 

23 

0 

LOD 

0 

00270000 

24 

0 

LOC 

2 

r\f\r\  nr\  ry  r\  ~t 

Wb  J(_J  JUL 

25 

0 

LOD 

0 

00270000 

26 

0 

ADD 

C 

1020 

001083FC 

CONSTANT    PROPAGATION 

27 

0 

STO 

0 

00280000 

28 

0 

DEL 

0 

002A0000 

29 

0 

LOC 

2 

00020002 

30 

0 

LOC 

2 

00020002 

31 

0 

LOD 

0 

00270000 

32 

0 

LOC 

3 

00020003 

33 

0 

LOD 

0 

00270000 

34 

0 

ADD 

C 

1016 

001083F8 

CONSTANT    PROPAGATION 

35 

0 

STO 

0 

00280000 

36 

0 

DEL 

0 

O02A00O0 

37 

0 

LOC 

2 

00020002 

38 

0 

LOC 

2 

00020002 

39 

0 

LOD 

0 

00270000 

40 

0 

INT 

1 

00053001 

41 

0 

ADD 

C 

1012 

001033F4 

CONSTANT    PROPAGATION 

42 

0 

STO 

0 

00280000 

43 

0 

DEL 

0 

002A0000 

44 

0 

LOC 

3 

00020003 

45 

0 

LOC 

1 

00020001 

46 

0 

LOD 

0 

00270000 

47 

0 

INT 

3 

OOU50003 

48 

0 

MUL 

c 

1008 

001483F0 

CONSTANT    PROPAGATION 

49 

0 

STO 

0 

00280000 

50 

0 

DEL 

0 

002A0000 

51 

0 

LOC 

3 

00020003 

52 

0 

LOC 

3 

00020003 

53 

0 

LOD 

0 

00270000 

54 

0 

INT 

5 

00050005 

55 

0 

ADD 

C 

1004 

001083EC 

CONSTANT    PROPAGATION 

56 

0 

STO 

0 

00280000 

• 

57 

0 

DEL 

0 

002A0000 

58 

0 

LOC 

4 

00020004 

59 

0 

INT 

6 

00050006 

60 

0 

STO 

0 

00280000 

61 

0 

DEL 

0 

O02A00O0 

62 

0 

LOC 

1 

00020001 

63 

0 

LOD 

0 

00270000 

64 

0 

LOC 

2 

00020002 

65 

0 

LOD 

0 

00270000 

66 

0 

GTR 

c 

1000 

002183E8 

CONSTANT    PROPAGATION 

67 

0 

XIT 

79 

0004004F 
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Ctt 

U 

Al  1 

69 

0 

BSC 

70 

0 

ENT 

71 

0 

LOC 

72 

0 

LOC 

73 

0 

LOD 

74 

0 

LOC 

75 

0 

LOO 

76 

0 

MUL 

77 

0 

STO 

78 

0 

DEL 

79 

0 

ENT 

80 

0 

LOC 

61 

0 

LOC 

82 

0 

LOO 

83 

0 

LOC 

84 

0 

LOO 

85 

0 

MUL 

86 

0 

STO 

87 

0 

DEL 

/u 

OOVHOU^b 

0 

OO2F0000 

92 

0003005C 

4 

00020004 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

982 

001483D6 

0 

00280000 

0 

OO2A0000 

97 

00030061 

1 

00020001 

3 

00020003 

0 

00270000 

2 

00020002 

0 

00270000 

962 

001483C2 

0 

00280000 

0 

002A0000 

COMM  SUBEXP  ELIM  £  CONS  PROP 


**$******* *«****##*#****#» ****$$#******$******#**************#******** 


CONSTANT    PROPAGATION 


FINAL    OPTIMIZATION    POOL    FOR    EACH    BLOCK    IS: 


FINAL    POOL    FOR      BLOCK/*    1    IS: 
(NULL) 


FINAL    POCL    FOR       8L0CK#    2    IS: 
C(88:91,*,91)       C(  91 :  89,  *  ,  96) 
C( 100:92,*, 102)       C( 96: 92 , *» 104) 
All, 96,96) 


C(89:90,*,91)       C( 91 : 88 ,*  ,92)       C( 96 :90,*, 100) 
A(4,93,93)       A(3,102,102)       A(2,92,92) 


FINAL    POCL    FOP. 
C<  96:9  2,*,  1041 

C(91:89,*,96)   C(88:91 
A(2,92,92)   A(l,96,96) 


BLOCK*  3  IS: 

C( 100:92,*, 102) 


C(96:90,*,100)   C < 9  1 : 88 ,*, 92)   C ( 89 :90, * , 91 ) 


,91)   C(92:102, * , 1 06 )   A(4, 106,106)   A(3,102,102) 


BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  AT  69 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC    BLOCK    tf2 

BEGINNING  AT  70,  ENDING  AT  79 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  23 

BEGINNING  AT  79,  ENDING  AT  87 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
2 


BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER 

1 
2 
3 


NUMBER    OF    PASSES 

1 
1 

1 


TOTAL    NUMBER    OF    BLOCKS    PROCESSED    WAS    3 

USING    THE    LAST-IN-FIRST-OUT       BLOCK    SELECTION    ALGORITHM. 

TIME    FOR    THE    OPTIMIZATION    WAS    0.295    SECONDS. 

***CODE    SYNTHESIS    FILTER    IS    COMPLETE*** 
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- 

CARD 

n 

1     SYL    ) 

0    (COMMENT              TEST    PROGRAM    U    8 

1 

$EXECl 

r'TE 

3 

0 

1 

BEGIN    LOCAL         A , B , C , D, E, F , G,  H, 

I; 

4 

1 

1 

B    :=    5; 

5 

1 

5 

C     :=    10; 

6 

1 

9 

A    :=    B    *   C; 

7 

1 

17 

IF    A    GTR    B    THEN 

8 

1 

22 

BEGIN 

9 

1 

26 

C    :=    30; 

10 

2 

30 

E    :=   C; 

11 

2 

35 

G    :=    B   *    E; 

12 

2 

43 

END    ELSE 

13 

1 

43 

BEGIN 

14 

1 

46 

B     :=    B    *    2; 

15 

2 

53 

D    :=    B; 

16 

2 

58 

F     :=    D    *    C; 

17 

2 

66 

END; 

18 

1 

67 

H    :=    C    *    B; 

19 

1 

75 

I    :=    B   *  C; 

20 

1 

83 

WHILE    H    GTR    C    DO 

21 

1 

93 

BEGIN 

22 

1 

93 

C    :=  C    +   1;                       ; 

23 

2 

100 

F    :=    1    +   2; 

24 

2 

106 

G    :=  G    «•   0; 

25 

2 

113 

A    :=   A    *    1; 

26 

2 

120 

B    :=   B    *   0; 

27 

2 

127 

END; 

28 

1 

130 

END 

29 

1 

130 

EOF 

CODE    f 

:lLf 

i    COPIED     (130    WORDS) 

CONSTANT 

TABLE    COPIEO     ( 12    WORDS) 

2    RECORD! 

;    WRITTEN    INTO    FILE    1 

END    CF 

CC 

)MPILA1 

"ION    FEBRUARY    12,     1975.       CLOCK 

TIME 

=  20:50:41.39. 


29  CARDS  WERE  READ. 

NO  ERRORS  WERE  DETECTED. 
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***CODE    SYNTHESIS    FILTER*** 

BLOCK    SELECTION    METHOD    WILL    BE    STEEPEST    OESCENT    (MINIMUM    CURRENT    POOL) 

***C    OMPLETE         TABLE         DUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


***T    ABLE 


DUM    P***    AT    LOCATION 


CONSTANTS    <1>      <2>       <3>       <4>      <  5>      <6>       <7>      <8>      <9>       <10>    <ll>    <12>    <13>    <!<♦> 


CCNSYM 
CCNTYPE 
CONVAL 
CONINT 


5  I  10 

INT  INT 
131  1132 
5  110 


30         2 
INT       INT 
133       134 

30  I  2 


L  0 

INT  INT 

135  136 

1  10 


ADDR    TABL    <1>      <2>       <3>       <4>      <5>       <6>       <7>      <8>      <9>      <10>    <ll>    <12>    <13>    <14> 

(EMPTY) 

3 

VALUE    STACK    (TOP    AT    127) 


CONT  STK   <l>   <2>   <3> 

<4>   <5>   <6>   <7> 

BLOCK*    |0 

ENTRY     10 

EXEC  STAC  <1>   <2>   <3>   <4>   <5>   <6>   <7> 

(EMPTY) 

***•*   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF 

OP  CODE     CNS  ADR 

RAW  CODE 

SET 

/ETC 

********************  ********************  ****** 

0     0 

ENT 

C 

131 

00036083 

1      0 

TOGGLE 

257 

OOOB0101 

2      0 

LOC 

2 

00020002 

3      0 

INT 

1 

00050001 

4      0 

STO 

0 

00280000 

5      0 

DEL 

0 

002AOOOO 

6      0 

LOC 

3 

00020003 

7      0 

INT 

2 

00050002 

8      0 

STO 

0 

00280000 

9      0 

DEL 

0 

0O2A0OOO 

10     0 

LOC 

1 

00020001 

11     0 

LOC 

2 

'  00020002 

12     0 

LOD 

0 

00270000 

13     0 

LOC 

3 

00020003 

14     0 

LOD 

0 

00270000 

15     0 

MUL 

0 

00140000 

16     0 

STO 

0 

00230000 

17     0 

DEL 

0 

002A0000 

18     0 

LOC 

1 

00020001 

19     0 

LOD 

0 

00270000 

20     0 

LOC 

2 

00020002 

21     0 

LOD 

0 

00270000 

22     0 

GTR 

0 

00210000 

23     0 

XIT 

46 

O0O4002E 

24     0 

XIT 

26 

00040J1A 

25     0 

BSC 

0 

OO2F0000 

26     0 

ENT 

1 

00030001 

27     0 

LOC 

3 

00020003 

28     0 

INT 

3 

00050003 

29     0 

STO 

0 

00280000 

30     0 

DEL 

0 

00240000 

31     0 

LOC 

5 

00020005 

32     0 

LOC 

3 

00020003 

33     0 

LOD 

0 

00270000 

34     0 

STO 

0 

00280000 

35     0 

DEL 

0 

002AOOOO 

36     0 

LOC  „ 

7 

00020007 

37     0 

LOC 

2 

00020002 

38     0 

LOD 

0 

00270000 

39     0 

LOC 

5 

00020005 

40     0 

LOD 

0 

00270000 

41     0 

MUL 

0 

00140000 

<8>      <9>      <10>   <U>    <12>    <13>    <l<t> 


<8>      <9>      <10>   <11>    <12>    <13>    <14> 


OPTIMIZATION 
TYPE 


192 


Hi 

U 

MU 

43 

0 

DEL 

44 

0 

XIT 

45 

0 

BRS 

46 

0 

ENT 

47 

0 

LOC 

48 

0 

LOG 

49 

0 

LOO 

50 

0 

INT 

51 

0 

A00 

52 

0 

STO 

53 

0 

DEL 

54 

0 

LOC 

55 

0 

LOC 

56 

0 

LOD 

57 

0 

STO 

58 

0 

DEL 

59 

0 

LOC 

60 

0 

LOC 

61 

0 

LOD 

62 

0 

LOC 

63 

0 

LOD 

64 

0 

MUL 

65 

0 

STO 

66 

0 

DEL 

67 

0 

ENT 

68 

0 

LOC 

69 

0 

LOC 

70 

0 

LOD 

71 

0 

LOC 

72 

0 

LOD 

73 

0 

MUL 

74 

0 

STO 

75 

0 

DEL 

76 

0 

LOC 

77 

0 

LOC 

78 

0 

LOD 

79 

0 

LOC 

80 

0 

LOD 

81 

0 

MUL 

82 

0 

STO 

83 

0 

DEL 

84 

0 

ENT 

85 

0 

LUC 

86 

0 

LOD 

87 

0 

LOC 

68 

0 

LOD 

89 

0 

GTR 

90 

0 

XIT 

91      i 

0 

XIT 

92      ' 

0 

BSC 

93 

0 

ENT 

94 

0 

LOC 

95 

0 

LOC 

96 

0 

LOD 

97 

0 

INT 

98 

0 

ADD 

99 

0 

STO 

100 

0 

DEL 

101 

0 

LOC 

102 

0 

INT 

103 

0 

INT 

104 

0 

ADD 

105 

0 

STO 

106 

0 

DEL 

107 

0 

LOC 

108 

0 

LOC 

109 

0 

LOD 

110 

0 

INT 

HI 

0 

ADD 

112 

0 

STO 

113 

0 

DEL 

114 

0 

LOC 

115 

0 

LOC 

116 

0 

LOD 

117 

0 

INT 

118 

0 

MUL 

119 

0 

STO 

120 

0 

DEL 

121 

0 

LOC 

122 

0 

LOC 

123 

0 

LOD 

124 

0 

INT 

125 

0 

MUL 

126 

0 

STO 

127 

0 

DEL 

128 

0 

XIT 

129 

0 

BRS 

u 

0 

67 

0 

1 

2 

2 

0 

4 

0 

0 

0 

4 

2 

0 

0 

0 

6 

4 

0 

3 

0 

0 

0 

0 

1 

8 

3 

0 

2 

0 

0 

0 

0 

9 

2 

0 

3 

0 

0 

0 

0 

1 

& 

0 

3 

0 

0 

130 

93 

0 

1 

3 

3 

0 

5 

0 

0 

0 

6 

5 

4 

0 

0 

0 

7 

7 

0 

6 

0 

0 

0 

1 

1 

0 

5 

0 

0 

0 

2 

2 

0 

6 

0 

0 

0 

84 

0 


^JO^tiv^JOV 

002A0000 
00040043 

002E0000 
00030001 
00020002 
00020002 
00270000 
00050004 
00100000 
00280000 
0O2A0OO0 
00020004 
00020002 
00270030 
00280000 
O02A00OO 
00020006 
00020004 
00273000 
00020003 
00273000 
00140000 
00280000 
002AOOOO 
00030301 
00020008 
00020003 
00270000 
00020002 
00270000 
00140000 
00280000 
002A0000 
00020009 
00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
002A0030 
00030001 


00270 
00020 
00270 
00210 
00040 
000*0 
OO2F0 
00030 
00020 
00020 
00270 
00050 
00100 
00280 
002AO 
00020 
00050 
00050 
00103 
0C280 
002A0 
00020 
00020 
00270 
00050 
00103 
00280 
002AO 
00020 
00020 
00270 
00050 
00140 
00280 
002A0 
00020 
O0O20 
00270 
00050 
00140 
00280 
002A0 
00040 
002E0 


U'JO 

000 
003 
000 
300 
082 
0  50 
000 
001 
003 
003 
300 
005 
000 
000 
300 
006 
005 
004 
000 
000 
000 
007 
007 
000 
006 
000 
003 
0  00 
001 
001 
000 
005 
000 
000 
000 
002 
302 
000 
006 
300 
000 
000 
054 
000 


1Q3 


no 


IfcNI 


I   I  I 


***« ******** ************************************************** ** ****** 


BASIC  BLCCK  #1 

BEGINNING  AT  Ot  ENDING  AT 
BLOCK  TRAVERSED  0  TIMES 
0  REFERENCES: 


***E  N  D 


0  F 


B*2 

0 

LOC 

BO 

0 

INT 

B+4 

0 

STO 

B*5 

0 

DEL 

B*6 

0 

LOC 

B  +  7 

0 

INT 

b*8 

0 

STO 

B*9 

0 

DEL 

B  +  10 

0 

LOC 

B  +  l  1 

0 

LOC 

B  +  12 

0 

LOD 

B  +  13 

0 

LOC 

B  +  14 

0 

LOD 

B  +  15 

0 

MUL 

BH6 

0 

STO 

B  +  17 

0 

DEL 

B«-18 

0 

LOC 

B  +  19 

0 

LCD 

B«-20 

0 

LOC 

B+21 

0 

LOD 

B+22 

0 

GTR 

B*23 

0 

XIT 

B+24 

0 

XI  T 

B+25 

0 

BSC 

COMPLETE 


2 
1 

0 
0 
3 
2 
0 
0 

1 

2 

0 
3 
0 
0 
0 
0 

1 

0 
2 

0 

0 

46 

26 

0 


TABLE 

00020002 
00053001 
00280000 
OO2A0000 
00020003 
00050002 
00280000 
002AOOOO 
00020001 
00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
OO2A00O0 
00020001 
00270000 
00020002 
00270000 
00210000 
0004302E 
0004001A 
002FOOOO 


0    U    M   P*** 


INITIAL    CURRENT    OPTIMIZED    POOL    TO    BE    JSED    FOR       BLOCK*    2     IS: 

C(  131:132,*, 138)       C(  138 :  131,* , 140)       A(l,138,138)       A(3,  132,132)       A(2,131,131) 

FROM     BL 


CONTROL  AT 

26, 

C+26 

0 

ENT 

B+27 

0 

LOC 

B+28 

0 

INT 

B  +  29 

0 

STO 

B+30 

0 

DEL 

B+31 

0 

LOC 

B+32 

0 

LOC 

B+33 

0 

LOD 

B+34 

0 

STO 

B+35 

0 

DEL 

B+36 

0 

LOC 

B+37 

0 

LOC 

B+38 

0 

LOD 

B«-39 

0 

LOC 

B*40 

0 

LOD 

B+41 

0 

MUL 

B+42 

0 

STO 

B+43 

0 

DEL 

B+44 

0 

XI  T 

B*45 

0 

BRS 

TO  BLK  2  (PASS  1) 

135 

00033087 

3 

00020003 

3 

00050003 

0 

00280000 

0 

002A0000 

5 

00020005 

3 

00020003 

0 

00270000 

0 

00280000 

0 

OO2A000O 

7 

00020007" 

2 

00020002 

0 

00270000 

5 

00020005 

0 

00270000 

0 

00140000 

0 

00280000 

0 

OO2A0O0O 

67 

00040043 

0 

002E0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED 
C(138:131,*,140J  C(  131: 132,*, 1381  C< 131 
A<5,133,133)       A(3,133,133)       Ail, 133, 138) 


FOR      BLOCK*    3    IS: 
133,*, 142)        A<7,142 
A( 2,131,131) 


142) 


CONTROL  AT 
C*67    0 


B+68 
B+69 
B*70 
B  +  71 
B*72 
B+73 
B*74 
B*75 
Bf76 
B«-77 
6*78 
B  +  79 
B+80 
B+81 
B*82 
B*83 
B  +  84 


67,  FROM  BLK  2  TO  BLK 

ENT  C  140 

LOC  8 

LOC  3 

LOD  0 

LOC  2 

LOD  0 

MUL  0 

STO  0 

DEL  0 

LOC  9 

LOC  2 

LOD  0 

LOC  3 

LOD  0 

MUL  0 

STO  0 

DEL  0 

ENT  1 


3  (PASS  1) 

0003808C 

00020008 

00020003 

00270000 

00020002 

00270000 

00140000 

00280000 

OO2A0000 

00020009 

00020002 

00270000 

00020003 

00270000 

00140000 

00280000 

002A0000 

00030001 


INITIAL  CURRENT 
C(  131:133, 
A<8,  142,  14 


OPTIMIZED  POOL  TO  BE  USED 
*,142  )   C (  131: 132,*, 138)   CI  138: 
2)   A(7, 142,142)   AI  5,  133,  1;>3  I 


FOR   BLOCK*  4  IS: 

131,*, 140)   A(9,142,142) 

A(3,l33,l33)   All, 138, 138) 


19;J 


A(Zt  Ult  1^1  J 


CONTROL    AT 
C*S4         0 


6*85 
B*86 
B*87 
B  +  88 
6*8  9 
6*90 
B+91 
B+92 


84, 
ENT 
LOC 
LOD 
LOC 
LOD 
GTP. 
XIT 
XIT 

esc 


FROM  BLK  3 


TO  BLK  4  (PASS  1) 

145 

00038091 

8 

00020003 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00210000 

130 

00040082 

93 

0004005D 

0 

002F0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED 
0)   C(  131 : 132,*, 138)   C<131 
A(8,  142,142)   A(7, 142,142) 
A(2, 131,131) 


CI  138: 131,*, 140  J   C( 131 : 132 , *, 138 ) 

A(9,  142,142) 

A(lf138,138) 


FOR   BLOCK*  5  IS: 

133,*, 142)   C<  142:133,*, 140) 

A(5,133,133)   A(3, 133,133) 


CONTROL 


C  +  93 
B  +  94 
B*95 
B+96 
B*97 
B+96 
B+99 
B  +  100 
B  +  101 
B  +  102 
B+103 
B  +  104 
B  +  105 
B  +  106 
B  +  107 
B  +  108 
B*109 
B  +  110 
B  +  lll 
B  +  112 
B  +  113 
BH1A 
3  +  115 
B  +  116 
3  +  11  7 
B  +  118 
B  +  119 
B*120 
B  +  121 
B  +  122 
B  +  123 
B  +  124 
BH25 
B  +  126 
B  +  127 
BU28 
B  +  129 


AT  93,  FROM  BLK  4  TO  BLK  5  (PASS  1) 

ENT  C  150  00038096 

LOC  3  00020003 

LOC  3  00020003 

LOD  0  00270000 

INT  5  00050005 

ADO  0  00100000 

STO  0  00280000 

DEL  0  002AOOOO 

LOC  6  00020006 

INT  5  OC050005 

INT  4  00050004 

ADD  0  OOIOOOOO 

STO  0  00280000 

DEL  0  002A0000 

LOC  7  00020007 

LOC  7  00020007 

LOD  0  00270000 

INT  6  00050006 

ADD  0  OOIOOOOO 

STO  0  00280000 

DEL  0  002AOOOO 

LOC  1  00020001 

LOC  I  00020001 

LOD  0  00270000 

INT  5  00050005 

MUL  0  00140000 

STO  0  00280000 

DEL  0  0O2A00O0 

LOC  2  00020002 

LOC  2  00020002 

LOD  0  00270000 

INT  6  00050006 

MUL  0  00140000 

STO  0  00280000 

DEL  0  002A0000 

XIT  84  00040054 

BRS  0  002E0000 


BEFORE  THE  MEET  OPERATION; 


OUTPUT  POOL  FROM 
C[  142:133,*, 140) 
C(133:135,* 


C(138: 135,* 


lt5) 
138) 


BLOCK* 
C(  131 
C(  131 
C(  131 


5    IS: 

133,*,  142) 
133,*,  145) 
136,*,  136) 


(  131 

C<  135 


132,*, 138) 
134,*, 147) 


C(  133 
C(  142 


131, 
136  , 


A(2,136il36J       All, 138,138) 


A(6,147,147)       A(3,  145,145)       A(9, 142,142)       A(8,142,i42)       A(5,133,133) 


*,  140) 
*,  142) 
A( 7,142,142) 


CURRENT    POOL    FOR   BLOCK*    4    IS: 
C(13l:  133,*, 142)      C(  131 : 132,* . 138)       C(138 
A(8tl42,142)       A(7, 142,142)       A(5,133,133) 
A(2,131,  131) 

AFTER    PERFORMING    THE    MEET    OPERATION: 


131,*, 140)       A(9,142,142) 
A{3,133,133)       A(l,138,138) 


NEW    CURRENT    POOL/INPUT    PCCL    FOR       BLOCK*    4    IS: 

A(9, 142,142)       A(8, 142,142)       A{7, 142, 1421       A(5,133,133) 

Mli  136,138)       A(2t*il52J 


A(3i*( 1511 


CONTROL  AT 

84, 

C*84 

0 

ENT 

B«-85 

0 

LOC 

B+86 

0 

LOD 

B*87 

0 

LOC 

B«-88 

0 

LOD 

B+89 

0 

GTR 

Bf90 

0 

XIT 

B*91 

0 

XIT 

B*92 

0 

BSC 

FROM    BLK    5 


TO  BLK  4  (PASS  2) 

145 

0U038091 

8 

00020008 

0 

00270000 

3 

00020003 

0 

00270000 

988 

002183DC 

130 

00040082 

93 

0004005D 

0 

002FOOOO 

CONSTANT    PROPAGATION 


195 


UKI IM1ZA I IUN     Al      13 

(131,132115,138) 

OPTIMIZATION    AT    22 

(138,131122,140) 

OPTIMIZATION    AT    41 

(131,133141,142) 

OPTIMIZATION    AT    73 

(131,133141,142) 

OPTIMIZATION    AT    81 

(131,133141,142) 

OPTIMIZATION    AT    104 

(134,1351  104,147) 

OPTIMIZATION    AT     111 

(136,1421 111,142) 

OPTIMIZATION    AT    118 

(135,138!  118,138) 

OPTIMIZATION    AT    125 

(136,1551125,136) 


CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
COMM  SUBEXP  ELIM  £  CONS  PROP 
COMM  SUBEXP  ELIM  £  CONS  PROP 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
CONSTANT  PROPAGATION 
SIMPLIFICATION 


**** 

FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC 

OFF 

OP  CODE     CNS  ADR 

RAW  CODE 

OPTIMIZATION 

SET 

/ETC 

TYPE 

****** 

0 

0 

ENT 

131 

000300  8  3 

1 

0 

TOGGLE 

257 

OO0B0101 

2 

0 

LOC 

2 

00020002 

3 

0 

INT 

1 

00050001 

4 

0 

STO 

0 

00280000 

5 

0 

DEL 

0 

0O2AO000 

6 

0 

LOC 

3 

00020002 

7 

0 

INT 

2 

00050002   i 

8 

0 

STO 

0 

00280000 

9 

0 

DEL 

0 

002A0000 

10 

0 

LOC 

1 

00020001 

11 

0 

LOC 

2 

O0O2J0O2 

12 

0 

LOD 

0 

00270000 

13 

0 

LOC 

3 

00020003 

14 

0 

LOD 

0 

00270000 

15 

0 

MUL 

C 

1024 

00148400 

CONSTANT  PROPAGATION 

16 

0 

STO 

0 

00280000 

17 

0 

DEL 

0 

002AOOOO 

18 

0 

LOC 

1 

00023001 

19 

0 

LOO 

0 

00270000 

20 

0 

LOC 

2 

00020002 

21 

0 

LOD 

0 

00270000 

22 

0 

GTR 

C 

1020 

002133FC 

CONSTANT  PROPAGATION 

23 

0 

XIT. 

46 

0004002E 

24 

0 

XIT 

26 

0004301  A 

25 

0 

BSC 

0 

002F00O0 

26 

0 

ENT 

135 

00033087 

. 

27 

0 

LOC 

3 

00023003 

28 

0 

INT 

3 

00050003 

29 

0 

STO 

0 

00280300 

30 

0 

DEL 

0 

O02A0000 

31 

0 

LOC 

5 

00020005 

32 

0 

LOC 

3 

00023003 

* 

33 

0 

LOD 

0 

00270000 

34 

0 

STO 

0 

00280000 

35 

0 

DEL 

0 

OO2A0OOO 

36 

0 

LOC 

7 

00020007 

37 

0 

LOC 

2 

00020302 

38 

0 

LOD 

0 

00270000 

39 

0 

LOC 

5 

00020005 

40 

0 

LOD 

0 

00270000 

41 

0 

MUL 

C 

1012 

001483F4 

CONSTANT  PROPAGATION 

42 

0 

STO 

0 

00280000 

43 

0 

DEL 

0 

OO2A0OOO 

44 

0 

XIT 

67 

00040043 

45 

0 

BRS 

0 

002E0000 

46 

0 

ENT 

1 

00033001 

47 

0 

LOC 

2 

00020002 

48 

0 

LOC 

2 

03020002 

49 

0 

LOD 

0 

00270000 

50 

0 

INT 

4 

00050004 

51 

0 

ADD 

0 

00100000 

52 

0 

STO 

0 

00280000 

53 

0 

DEL 

0 

002A0000 

54 

0 

LOC 

4 

00020004 

55 

0 

LOC 

2 

00020002 

196 


>6 

0 

LUU 
STO 

0 

00<?  fUUUU 

57 

0 

0 

00280000 

58 

0 

DEL 

0 

002AOOOO 

59 

0 

LOC 

6 

00020006 

60 

0 

LOC 

4 

00020004 

61 

0 

LOD 

0 

0027000U 

62 

0 

LOC 

3 

00020003 

63 

0 

LOO 

0 

00270000 

6* 

0 

MUL 

0 

00140000 

65 

0 

STO 

0 

00280000 

66 

0 

DEL 

0 

002AOOOO 

67 

0 

ENT 

140 

00030J8C 

68 

0 

LOC 

8 

00020008 

69 

0 

LOC 

3 

00020003 

70 

0 

LOD 

0 

00270000 

.  71 

0 

LOC 

2 

00020002 

72 

0 

LOD 

0 

00270000 

73 

0 

MUL 

C 

1002 

00L483EA 

74 

0 

STO 

0 

00280000 

75 

0 

DEL 

0 

O02A00OO 

76 

0 

LOC 

9 

00020009 

77 

0 

LOC 

2 

00020002 

78 

0 

LOD 

0 

00270000 

79 

0 

LOC 

3 

00020003 

80 

0 

LOD 

0 

00270000 

ei 

0 

MUL 

c 

998 

001483E6 

82 

0 

STO 

0 

00280000 

83 

0 

DEL 

0 

002AOOOO 

84 

0 

ENT 

145 

00030091 

85 

0 

LOC 

8 

00020008 

86 

0 

LOD 

0 

00270000 

87 

0 

LDC 

3 

00020003 

88 

0 

LOD 

0 

00270000 

89 

0 

GTR 

988 

002103DC 

90 

0 

XIT 

130 

00040082 

91 

0 

XIT 

93 

0004005D 

92 

0 

BSC 

0 

002F0000 

•  93 

0 

ENT 

150 

00030096 

94 

0 

LOC 

3 

00020003 

95 

0 

LOC 

3 

00020003 

96 

0 

LOD 

0 

OC270000 

97 

0 

INT 

5 

00050005 

98 

0 

ADD 

9  76 

001003DO 

99 

c 

5TG 

0 

00280300 

100 

0 

DEL 

0 

00240000 

101 

0 

LOC 

"6 

00020006 

102 

0 

INT 

5 

00050005 

103 

0 

INT 

4 

00050004 

104 

0 

ADD 

C 

972 

0010S3CC 

105 

0 

STO 

0 

00280000 

106 

0 

DEL 

0 

002AOOOO 

107 

0 

LOC 

7 

00020007 

108 

0 

LOC 

7 

00020007 

109 

0 

LOD 

0 

00270000 

110 

0 

INT 

6 

00050006 

111 

0 

ADD 

c 

968 

001083C8 

112 

0 

STO 

0 

00280000 

113 

0 

DEL 

0 

002AOOOO 

114 

0 

LOC 

1 

00020001 

115 

0 

LOC 

1 

00020001 

116 

0 

LOD 

0 

00270000 

117 

0 

INT 

5 

00050005 

118 

0 

MUL 

c 

964 

001483C4 

119 

0 

STO 

0 

00280000 

120 

0 

DEL 

0 

OO2A0OOO 

121 

0 

LOC 

2 

00020002 

122 

0 

LOC 

2 

00020002 

123 

0 

LOO 

0 

00270000 

124 

0 

INT 

6 

00050006 

125 

0 

MUL 

c 

960 

001483C0 

126 

0 

STO 

0 

00280000 

127 

0 

DEL 

0 

002AOOOO 

128 

0 

XIT 

84 

00040054 

129 

0 

BRS 

0 

002E0000 

130 

0 

ENT 

155 

00030096 

**«***i 

I:****** 

«****$******>< 

!*1 

Ht**$**;( 

**<;**  **$**$* 

COMM  SUBEXP  ELIM  £  CONS  PROP 


COMM  SUBEXP  ELIM  I    CONS  PROP 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


CONSTANT  PROPAGATION 


SIMPLIFICATION 


*#*******$$  ♦***#$ »*#**$*$ 


FINAL  OPTIMIZATION  POOL  FOR  EACH  BLOCK  IS: 


FINAL  POCL  FOR   BLOCK*  1  IS: 
(NULL) 
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FINAL    POCL    FOR       BLOCK*    2    IS: 

CI  131:132,*, 138)      C <  138 : 131, *, 140)      Ail.138,138)       A(3, 132,132)       A(2,13l,131) 

FINAL  POCL  FOR   BLOCK*  3  IS: 

d  138:131,*. 140)   C(  131 : 132,*,  138)  Z (  1 31 : 133,*, 142)   A(7»142,142> 

A(5,133,133)   A(3,133,133)   Ail, 138,138)   A(2,131,131) 

FINAL  POCL  FOR   BLOCK*  4  IS: 

A(9,142,142)   A(8, 142,142)   A(7, 142,142)   A(5,133,133)   A(3,*,160) 

Ail, 138, 138)   A(2,*,161) 

FINAL  POCL  FOR   BLOCK*  5  IS: 

Ai9,142,l42)   A(8, 142,142)   A(7,142,142)   A(5,133,133)   A(3,*,154) 

Ail, 138, 138)   A(2,*,155)   Ci 142 : 154, * , 1 56 ) 

FINAL    POCL    FOR       BLOCK*    6    IS: 

Ci 142:151,*, 153)       A19,142,142)       A(8,142,142)       A(7,142,142)       A(5,133,133) 

At3,*,151)       Ail,138,138)       A(2,*,152) 

BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDJ NG  AT  25 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  *2 

BEGINNING  AT  26,  ENDING  AT  45 
BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  *3 

BEGINNING  AT  67,  ENDING  AT  84 
BLOCK  TRAVERSED  I  TIMES 
I  REFERENCES: 
2 
BASIC  BLOCK  #4 

BEGINNING  AT  84,  ENDING  AT  92 
BLOCK  TRAVERSED  2  TIMES 
1  REFERENCES: 
3 
BASIC  BLOCK  *5 

BEGINNING  AT  93,  ENDING  AT  129 
BLOCK  TRAVERSED  2  TIMES 
1  REFERENCES: 
4 
BASIC  BLOCK  «6 

BEGINNING  AT  130,  ENDING  AT  130 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES:  , 

4 

BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER  NUMBER  OF  PASSES 

1  1 

2  l 

3  1 

4  .2 

5  2 

6  1 

TOTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  8 

USING  THE  STEEPEST  DESCENT  (MINIMUM  CURRENT  POOL)   BLOCK  SELECTION  ALGORITHM. 

TIME  FOR  THE  OPTIMIZATION  WAS  0.460  SECONDS. 

***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 
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CARD 

BL 

SYL 

1 

1 

0 

0 

COMMENT      TEST  PROGRAM  1  9 

iEXECUTE 

3 

0 

I 

BEGIN  LOCAL    A ,B ,C ,D, E ,F , G  , 

4 

1 

KEA0(A,  B,  C); 
I  :=  B  *  C; 

5 

10 

6 

18 

J  :=  C  *  B; 

7 

26 

WHILE  A  GTR  B  00 

8 

36 

BEGIN 

9 

36 

WHILE  A  GTR  B  00 

10 

2 

46 

BEGIN 

11 

2 

46 

WHILE  A  GTR  B  00 

12 

3 

56 

B  :=  B  +  1  ; 

13 

3 

66 

J  :=  B  *  C; 

14 

3 

74 

K  :=  l; 

15 

3 

78 

G  :=  1  +  3i 

16 

3 

84 

END; 

17 

2 

87 

end; 

18 

1 

90 

END 

19 

1 

90 

EOF 

CODE  f 

-  ILE 

:  copie 

ID  (90  WORDS) 

CONSTANT  TABLE  COPIED  (4  WORDS) 

2  RECORDS  WRITTEN  INTO  FILE  1 

END  OF  COMPILATION  FEBRUARY  12,  1975. 

19  CARDS  WERE  READ. 

NO  ERRORS  WERE  OETECTEO. 


CLOCK    TIME    =    20:34:0.02. 
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- 


***CODE    SYNTHESIS    FILTER*** 

BLOCK    SELECTION    METHOD   WILL    BE    FI RST- IN-F IRST-OUT 

***C    OMPLETE         TABLE         OUM    P*** 

DUMP    REQUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 


***T    ABLE 


D    U    M    P***    AT    LOCATION    =    0 


CONSTANTS    <1>      <2>      <3>      <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>   <13>    <14> 


CONSYM 
CONTYPE 
CCNVAL 
CCNINT 


1 

2    1 

INT 

INT 

100 

101 

1 

2    1 

3  14 

INT  INT 

102  I  103 

3  4 


ADDR    TABL    <1>      <2>       <3>       <4>      <5>      <6>      <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 
(EMPTY) 

VALUE    STACK    (TOP    AT    127) 


CONT  STK   <1> 

BLOCKS    10 
ENTRY     10 


<2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <K> 


EXEC  STAC  <1>   <2>   <3> 

<4>   <5>   <6>   <7> 

<8>   <9>   <10>  <ll>  <12> 

(EMPTY) 

****   FORMATTFD  TNTERMFDIATE  CODE  DUMP   **** 

LOC  OFF     OP  CODE     CNS  ADR     RAW  CODE      OPTIMIZATION 

SET                    ./ETC                       TYPE 

********************** *********^ ************************ ************** 

0      0 

ENT 

c 

100 

00038064 

1      0 

TOGGLE 

257 

oooacioi 

2     0 

LOC 

1 

00020001 

3     0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6     0 

INT 

0 

00050000 

7     0 

STD 

0 

00290000 

8     0 

LOC 

3 

00020003 

9     0 

INT 

1 

00050001 

10     0 

STO 

0 

00280000 

11     0 

DEL 

0 

OO2AO0O0 

12     0 

LOC 

1 

00020001 

13     0 

LOD 

0 

00270000 

14     0 

LOC 

2 

00020002 

15     0 

LOD 

0 

00270000 

16     0 

GTR 

0 

00210000 

17     0 

XIT 

73 

00040049 

18     0 

XIT 

20 

00040014 

• 

19     0 

BSC 

0 

002FOOOO 

20     0 

ENT 

I 

00030001 

21     0 

LOC 

1 

00020001 

22     0 

LOD 

0 

00270000 

23     0 

LOC 

2 

00020002 

• 

24     0 

LOD 

0 

00270000 

25     0 

GTR 

0 

00210000 

26     0 

XIT 

44 

0004002C 

27     0 

XIT 

29 

0004001D 

26     0 

BSC 

0 

002F0000 

29     0 

ENT 

1 

00030001 

30     0 

LOC 

2 

00020002 

31     0 

INT 

2 

00050002 

32     0 

STO 

0 

00280000 

33     0 

DEL 

0 

002A0000 

34     0 

LOC 

4 

00020004 

35     0 

LOC 

2 

00020002 

36     0 

LOD 

0 

0027UOOO 

37     0 

LOC 

3 

00020003 

38     0 

LOD 

0 

00270000 

39     0 

MUL 

0 

00140000 

40     0 

STO 

0 

00280000 

41     0 

DEL 

0 

002A0000 

200 


m  "  '    o 

AI  1           I 

5( 

uuu^uuiv 

43     0 

BRS 

0 

0O2E0O00 

44     0 

ENT 

1 

00030001 

45     0 

LOC 

2 

00020002 

46     0 

INT 

3 

00050003 

47     0 

STO 

0 

00280000 

48     0 

DEL 

0 

002AOOOO 

49     0 

LOC 

8 

00020008 

50     0 

LOC 

2 

00020002 

51     0 

LOO 

0 

00270000 

52     0 

LOC 

3 

00020003 

53     0 

LOO 

0 

00270000 

54     0 

MUL 

0 

00140000 

55     0 

STO 

0 

00280000 

56     0 

DEL 

0 

002AOOOO 

57     0 

ENT 

1 

00030001 

58     0 

LOC 

5 

00020005 

59     0 

LOC 

2 

00020002 

60     0 

LOD 

0 

00270000 

• 

61     0 

STO 

0 

00280000 

62     0 

DEL 

0 

0O2A0000 

• 

63     0 

LOC 

6 

00020006 

64     0 

LOC 

5 

00020005 

65     0 

LOD 

0 

00270000 

66     0 

LOC 

3 

00020003 

67     0 

LOD 

0 

00270000 

68     0 

MUL 

0 

00140000 

69     0 

STO 

0 

00280000 

70     0 

DEL 

0 

002A0000 

71     0 

XIT 

86 

00040056 

72     0 

BRS 

0 

002E0000 

73     0 

ENT 

1 

00030001 

74     0 

LOC 

2 

00023002 

75     0 

INT 

4 

00050004 

76     0 

STO 

0 

00280000 

77     0 

DEL 

0 

002A0000 

78     0 

LOC 

8 

00020008 

79     0 

LOC 

2 

00020002 

•  80     0 

LOD 

0 

00270000 

81     0 

LOC 

3 

00020003 

82     0 

LOD 

0 

00270000 

83     0 

MUL 

0 

00140000 

84     0 

STO 

0 

00280000 

85     0 

npL 

0 

002AOOOO 

86     0 

ENT 

1 

00030001 

87     0 

LOC 

7- 

00020007 

88     0 

LOC 

2 

00020002 

89     0 

LOD 

0 

00270000 

90     0 

STO 

0 

00280000 

91     0 

DEL 

0 

002AOOOO 

92     0 

LOC 

7 

00020007 

93     0 

LOC 

7 

00020007 

94     0 

LOD 

0 

00270000 

95     0 

LOC 

3 

00020003 

96     0 

LOD 

0 

00270000 

97     0 

MUL 

0 

00140000 

98     0 

STO 

0 

00280000 

99     0 

DEL 

0 

002A0000 

a*******************************************************************:*:* 

BASIC  BLOCK  SI 

BEGINNING  AT  0,  ENDING  AT  0 

BLOCK  TRAVERSEO  0  TIMES 

0  REFERENCES: 

***E  ND    OF    COMPLETE    TABLE    OUM  P*** 

B  +  2     0 

LOC 

1 

00020001 

B+3     0 

INT 

0 

00050000 

B  +  4     0 

STD 

0 

00290000 

B*5     0 

LOC 

2 

00020002 

B+6     0 

INT 

0 

00050000 

B*7     0 

STD 

0 

00290000 

B*8     0 

LOC 

3 

00020003 

6+9     0 

INT 

1 

00050001 

B  +  10    0 

STO 

0 

00280000 

■ 

BUI    0 

DEL 

0 

OO2A0O00 

B  +  12    0 

LOC 

1 

00020001 

B  +  13    0 

LOO 

0 

00270000 

B  +  14    0 

LOC 

2 

00020002 

B*15    0 

LOD 

0 

00270000 

B»16    0 

GTR 

0 

00210000 

B  +  17    0 

XIT 

73 

00040049 

B  +  18    0 

XIT 

20 

00040014 

B  +  19    0 

BSC 

0 

002F0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  2  IS: 
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tl  lot:  lUPt*t.iUt>l         A(3flOUtlUUI         A»Zf*,lU5i         All,*,l'J'tJ 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  3  IS: 
C(104:105,*,106)   M3, 100, 100)   A(2,*,105)   A(l,*,104) 

FROM  8LK 


CONTROL  AT 

73, 

C  +  73 

0 

ENT 

B  +  74 

0 

LOC 

B+75 

0 

INT 

B+76 

0 

STO 

B  +  77 

0 

DEL 

B  +  78 
B  +  79 

0 

LOC 

0 

LOC 

B+80 

0 

LOO 

B  +  81 

0 

LOC 

B  +  82 

0 

LOD 

B+83 

0 

MUL 

B+84 

0 

STO 

B  +  85 

0 

DEL 

B+86 

0 

ENT 

TO  BLK  2  (PASS  1) 

104 

00038068 

2 

00020002 

4 

00050004 

0 

00260000 

0 

002A0000 

8 

0C020008 

2 

00020002 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

1 

00030001 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  4  IS: 
C( 104:  105,*, 106)   C (  103 : 100, * , 103)   A(8, 103,103)   A(2, 103,103) 
A( It*, 104) 


A(3,100,100) 


CONTROL  AT 

20,  FROM  BLK 

C  +  20    0 

ENT 

C 

B+21    0 

LOC 

B  +  22    0 

LOD 

B+23    0 

LOC 

B+24    0 

LOD 

B+25    0 

GTR 

B  +  26    0 

XIT 

B  +  27    0 

XIT 

B+28    0 

BSC 

TO  BLK  3  (PASS  1) 

109 

0003806D 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

44 

- 0004002C 

29 

0004001D 

0 

002FOOOO 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  5  IS: 
C(104:105,*,106)   A(3,100,100)   A<2,*,105)   A(l,*,104) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  6  IS: 
C(104:105,*f 106)   A(3,100,100)   A(2,*,105)   All,*, 104) 


CONTROL  AT 

86,  FROM  BLK  2  TO  BLK  4  (PASS  1) 

C+86    0 

ENT 

C 

114 

00038072 

B+87    0 

LOC 

7 

00020007 

B  +  88    0 

LOC 

2 

00020002 

B  +  89    0 

LOD 

0 

00270000 

B+90    0 

STO 

0 

00280000 

B  +  91    0 

DEL 

0 

002AOOOO 

B+92    0 

LOC 

7 

00020007 

B+93    0 

LOC 

7 

00020007 

B  +  94    0 

LOD 

0 

00270000 

B+95    0 

LUC 

3 

00020003 

B  +  96    0 

LOD 

0 

00270000 

B+97    0 

MUL 

0 

00140000 

B+98    0 

STO 

0 

00280000 

B  +  99    0 

DEL 

0 

002AOOOO 

CONTROL  AT 

44,  FROM  BLt- 

;  : 

5  TO  dU 

C  5  (PASS  1) 

C+44    0 

ENT 

C 

119 

00038077 

B+45    0 

LOC 

2 

00020002 

B+46    0 

INT 

3 

00050003 

B+47    0 

STO 

0 

00280000 

B  +  48    0 

DEL 

0 

002A0000 

B+49    0 

LOC 

8 

00020008 

6  +  50    0 

LOC 

2 

00020002 

6  +  51    0 

LOD 

0 

00270000 

B  +  52    0 

LOC 

3 

00020003 

B  +  53    0 

LOD 

0 

00270000 

B+54    0 

MUL 

0 

00140000 

B+55    0 

STO 

0 

00280000 

B  +  56    0 

DEL 

0 

002A0000 

B  +  57    0 

ENT 

I 

00030001 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  7  IS: 

C( 104:105,*, 106)   C(  102 : 100,* ,  102)   A(8,102,102)   A<2, 102,102)   A(3,100,100) 

A( 1,*,  104) 

6  (PASS  1) 

0003307C 
00020002 
00050002 
00280000 
0O2A0O0O 
00020004 
00020002 
00270000 


CONT 

ROL  AT 

29,  FROM  BLh 

J  TO  BLK 

C+29 

0 

ENT 

y 

124 

B  +  30 

0 

LOC 

2 

B+31 

0 

INT 

2 

B+32 

0 

STO 

0 

B+33 

0 

DEL 

0 

B  +  34 

0 

LOC 

4 

B+35 

0 

LOC 

2 

B+36 

0 

LUD 

0 
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\S+6I 

U 

LUO 

B*38 

0 

LOO 

8*39 

0 

MUL 

B+40 

0 

sro 

B+41 

0 

DEL 

B+42 

0 

XI  T 

B  +  43 

0 

BRS 

i 

UUU^UUUJ 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

57 

00040059 

0 

002E0000 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  6  IS: 

C< 104: 10  5,* t 106)       C(  101 : 100,*  ,  101 ) 

Ad,*,  104) 


A(4,101,101)        A12, 101,1011        A(3, 100,100) 


CURRENT  POOL  FOR  BLOCK*  7  IS: 

C< 104: 10 5,*, 106)   C ( 102 : 100 ,* , 10  2 ) 

A( 1,*, 104) 

AFTER  PERFORMING  THE  MEET  OPERATION: 


A(8,102,102)       A(2, 102,102)       A(3,100,100) 


NEW    CURRENT    POOL/INPUT    POOL    FOR      BLOCK*    7    IS: 

A(3,100,100)       All,*, 104)       C( 110:100,*, 110) 


FROM    8LK    6 


A(2, 

*,110) 

A( 

CONTROL  AT 

57, 

C  +  57 

0 

ENT 

B  +  58 

0 

LOC 

B  +  59 

0 

LOC 

B+60 

0 

LOO 

B*61 

0 

STO 

B+62 

0 

DEL 

B+63 

0 

LOC 

B+64 

0 

LOC 

B+65 

0 

LOD 

B*66 

0 

LOC 

B+67 

0 

LOD 

B+68 

0 

MUL 

B+69 

0 

STO 

B  +  70 

0 

DEL 

B  +  71 

0 

XIT 

B+72 

0 

BRS 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  7 
CI  110:100,*, 110)  A(b,*,l 
All,*, 104) 


TO 

BLK  7  1PASS  1) 

129 

00038081 

5 

00020005 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002A000O 

6 

00020006 

5 

00020005 

0 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

002A0000 

86 

00040056 

0 

002E0000 

IS: 

10) 

Al 

5,*, 110)   Al 

2,*, 110) 

A(3,100,100) 


CURRENT    POOL    FOR    BLOCK*    4    IS: 

CI  104: 10 5,*, 106)       CI  103 :  100,* , 103) 

Al 1,*,104) 

AFTER  PERFORMING  THE  MEET  OPERATION: 


A(8, 103,103)       A12,103,103)       A(3,100,100) 


NEW    CURRENT    POOL/INPUT    POOL    FOR      BLOCK*    4    IS: 
A(2,*,lll)       A(3,100,100)       All,*, 104)       C ( 11 1 : 100, * , 1 11 ) 


CONT 

ROL  AT 

86, 

C  +  86 

0 

ENT 

B*87 

0 

LOC 

B  +  88 

0 

LOC 

B  +  89 

0 

I  CD 

B+90 

0 

STO 

B+91 

0 

DEL 

B+92 

0 

IOC 

B  +  93 

0 

LOC 

B+94 

0 

LOD 

B+95 

0 

LOC 

B+96 

0 

1  00 

B  +  97 

0 

MUL 

B+98 

0 

STO 

B+99 

0 

DEL 

FROM    BLK    7 


TO  BLK  4  (PASS  2) 

114 

00038072 

7 

00020007 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002AOOOO 

7 

00020007 

7 

00020007 

0 

00270000 

3 

00020003 

0 

00270000 

1000 

001483E8 

0 

00280000 

0 

002A0000 

COMM    SU8EXP    ELIM    I    CONS    PROP 


FINAL    OPTIMIZATION    RESULTS 


OPTIMIZATION    AT    25 

1104,1051 16,106) 

OPTIMIZATION    AT    39 

(100,1011 39, 101) 


COMM    SUBEXP    ELIM 
CONSTANT    PROPAGATION 
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UKI  IHUftl  1UIN     A  I      Oh 

(102.100154*102) 

OPTIMIZATION    AT    68 

(110, 100168, 110) 

OPTIMIZATION    AT    83 

(100,103183,103) 

OPTIMIZATION    AT    97 

(100,111197,111) 


CONSTANT  PROPAGATION 
"SIMPLIFICATION 
CONSTANT  PROPAGATION 
SIMPLIFICATION 


****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC 

OFF 

OP  CODE     CMS  ADR 

RAW  CODE 

OPTIMIZATION 

SET 

/ETC 

TYPE 

><.  *♦♦*******'!■*********#***  *************<«****************:************** 

0 

0 

ENT 

100 

000300o4 

1 

0 

TOGGLE 

257 

00080101 

, 

2 

0 

LOC 

1 

00020001   | 

3 

0 

JNT 

0 

00050000 

4 

0 

STD 

0 

00290000 

5 

0 

LOC 

2 

00020002  • 

6 

0 

INT 

0 

00050000 

7 

0 

STD 

0 

00290000 

8 

0 

LOC 

3 

00020003 

9 

0 

INT 

1 

00050001 

10 

0 

STO 

0 

00280000 

11 

0 

DEL 

0 

O02AO000 

12 

0 

LOC 

1 

00020001 

13 

0 

LOD 

0 

00270000 

14 

0 

LOC 

2 

00020002 

15 

0 

LOD 

0 

00270000 

16 

0 

GTR 

1024 

00210400 

17 

0 

XIT 

73 

00040049 

18 

0 

XIT 

20 

00040014 

19 

0 

OSC 

0 

002F0000 

20 

0 

ENT 

109 

0003006D 

21 

0 

LOC 

1 

00020001 

22 

0 

LOD 

0 

00270000 

23 

0 

LOC 

2 

00020002 

24 

0 

LOD 

0 

00270000 

25 

0 

GTR 

C 

1008 

002133F0 

COMM  SUBEXP  ELIM 

26 

0 

XIT 

44 

0004002C 

27 

0 

XIT 

29 

0004001D 

28 

0 

BSC 

0 

002F0000 

29 

0 

ENT 

124 

0003007C 

30 

0 

LOC 

2 

00020002 

31 

0 

INT 

2 

00050002 

32 

0 

STO 

0 

00280000 

33 

0 

DEL 

0 

002A0000 

34 

0 

LOC 

4 

00020004 

35 

0 

LOG 

2 

00020002 

36 

0 

LOD 

0 

00270000 

37 

0 

LOC 

3 

00020003 

38 

0 

LOD 

0 

00270000 

39 

0 

MUL 

C 

988 

001483DC 

CONSTANT  PROPAGATION 

40 

0 

STO 

0 

00280000 

41 

0 

DEL 

0 

002AOOOO 

42 

0 

XIT 

57 

00040039 

- 

43 

0 

BRS 

0 

002E0000 

44 

0 

ENT 

119 

00030077 

45 

0 

LOC 

2 

00020002 

46 

0 

INT 

3 

00050003 

47 

0 

STO 

0 

00280000 

48 

0 

DEL 

0 

002A0000 

49 

0 

LOC 

8 

00020008 

50 

0 

LOC 

2 

00020002 

51 

0 

LOD 

0 

00270000 

52 

0 

LOC 

3 

00020003 

53 

0 

LOD 

0 

00270000 

54 

0 

MUL 

C 

996 

001483E4 

CONSTANT  PROPAGATION 

55 

0 

STO 

0 

00280000 

56 

0 

DEL 

0 

002AOOOO 

57 

0 

ENT 

129 

00030081 

58 

0 

LOC 

5 

00020005 

59 

0 

LOC 

2 

00020002 

• 

60 

0 

LOD 

0 

00270000 

61 

0 

STO 

0 

00280000 

62 

0 

DEL 

0 

002A0000 

63 

0 

LOC 

6 

00020006 

64 

0 

LOC 

5 

00020005 

65 

0 

LOD 

0 

00270000 

66 

0 

LOC 

3 

00020003 

67 

0 

LOD 

0 

00270000 

68 

0 

MUL 

C 

984 

00148308 

SIMPLIFICATION 

69 

0 

STO 

0 

00280000 

Z9 

0 

DEL 

0 

002A0000 
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11           u 

Al.  1 

72     0 

BRS 

73     0 

ENT 

74     0 

LOC 

75     0 

INT 

76     0 

sro 

77     0 

DEL 

78     0 

LOC 

79     0 

LOC 

80     0 

LOO 

81     0 

LOC 

82     0 

LOO 

83     0 

MUL 

C 

84     0 

STO 

85     0 

DEL 

86     0 

ENT 

87     0 

LOC 

88     0 

LOC 

89     0 

LOD 

90     0 

STO 

91     0 

OEL 

92     0 

LOC 

93     0 

LOC 

94     0 

LOD 

95     0 

LOC 

96     0 

LOD 

97     0 

MUL 

C 

98     0 

STO 

99     0 

DEL 

************* 

>***********3 

?** 

bb 

UUU^uuso 

0 

002E0000 

104 

00030068 

2 

00020002 

4 

00053004 

0 

00280000 

0 

002A0000 

8 

00020008 

2 

00020002 

■ 

0 

00270000 

3 

00020003 

0 

00270000 

1016 

001483F8 

CONSTANT  PROPAGATION 

0 

00280000 

0 

002A0000 

114 

00030072 

7 

00020007 

2 

00020002 

0 

00270000 

0 

00280000 

0 

002A0000 

7 

00020007 

7 

00020007 

0 

00270000 

3 

00020003 

0 

00270000 

1000 

001483E8 

SIMPLIFICATION 

0 

00280000 

0 

002A0030 

******* 

*********** ****** ******************** 

FINAL  OPTIMIZATION  POOL  FOR  EACH  BLOCK  IS: 


.  FINAL  POCL  FOR   BLOCK*  1  IS: 
(NULL) 


FINAL  POCL  FOR   BLOCK*  2  IS: 

C(104:105,*,10t>)   At3,100,100)   AC2,*,i05)   Ad,*, 104) 


FINAL    POCL    FOR       3L0CK*    3    IS: 

C(104:l05,*,106)       A(3,100,100)       A(2,*»105J       Ad,*, 104) 


FINAL  POCL  FOR   BLOCK*  4  IS: 

A(2t*illl)   AI3,100,100)   A(lf*tl04)   CC 111: 100.*, Ill i 


FINAL    POCL    FOR      BLOCK*    5    IS: 

Cd04:  105,*,106)       A(3, 100,100]       A(2,*,105J       Ad,*, 104) 


FINAL    POCL    FOR      BLOCK*    6    IS: 

C( 104:105,*, 106)       A(3,100,100)       A<2,*,105)       All,*, 104) 


FINAL  POCL  FOR   BLOCK*  7  IS: 

A(2,*,110)   A(3,100,100)   Ad,*, 104)   C ( 1 10: 100, * , 1 10 ) 


BASIC  BLOCK  *1 

BEGINNING  AT  0,  ENDING  AT  19 
BLOCK  TRAVERSED  1  TIMES 

0  REFERENCES: 
BASIC  BLOCK  *2 

BEGINNING  AT  73,  ENDING  AT  86 
BLOCK  TRAVERSEO  1  TIMES 

1  REFERENCES: 

1 
BASIC  BLOCK  *3 

BEGINNING  AT  20,  ENDING  AT  28 
BLOCK  TRAVERSED  1  TIMES 
1  REFERENCES: 
1 
BASIC  BLOCK  *4 


2CK 


. ...  -    BtfclNNING  Ar  B6f  tNUlNO  Af  9V 

BLOCK  TRAVERSED  2  TIMES 
1  REFERENCES: 
2 
BASIC  BLOCK  #5 

BEGINNING  AT  44,  ENDING  AT  57 
BLOCK  TRAVERSED  I  TIMES 
1  REFERENCES: 

BASIC  BLOCK  #6 

BEGINNING  AT  29,  ENDING  AT  *3 

BLOCK  TRAVERSED  1  TIMES 

I  REFERENCES: 
3 
BASIC  BLOCK  #7 

BEGINNING  AT  57,  ENDING  AT  72 

BLOCK  TRAVERSED  1  TIMES 

1  REFERENCES: 
6 

BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER  NUMBER  OF  PASSES 

1  1 

2  1 

3  1 

4  2 

5  1 

6  1 

7  I 

TOTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  8 

USING  THE  FIRST-IN-FIRST-OUT   BLOCK  SELECTION  ALGORITHM. 

TIME  FOR  THE  OPTIMIZATION  WAS  0.449  SECONDS. 

***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 
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CARD 

BL 

1  SYL 

1 

0 

0 

COMMENT      TEST  PROGRAM  #    4 

^EXECUTE 

3 

0 

1 

BEGIN  LOCAL  A  ,B  ,C  ,  D  ,E  ,  F  ,G ,  H ,  I 

t  J  ?  K ; 

4 

1 

READIA,  B,  C); 

5 

10 

I  :=  3  *  C; 

6 

18 

WHILE  A  GTR  B  00 

7 

28 

BEGIN 

8 

28 

WHILE  A  GTR  B  00 

9 

2 

38 

BEGIN 

10 

2 

38 

WHILE  A  GTR  B  DO 

11 

3 

48 

J  :=  B  *  C; 

12 

3 

59 

K  :=  C  *  B; 

13 

3 

67 

END; 

14 

2 

70 

END; 

15 

1 

73 

END 

16 

1 

73 

EOF 

CODE  f 

rILE 

i  CCPIf 

ID  (73  WORDS) 

CONSTANT    T/ifaLE    COPIED     (0    WORDS) 
2     RECORDS    WRITTEN     INTO    FILE    1 
END    OF    COMPILATION    FEBRUARY    12, 


1975.       CLOCK    TIME 


21:13:33.31, 


16    CARDS    WERE    READ. 

NO   ERRORS    WERE    DETECTED. 


207 


***COOE    SYNTHESIS    FILTER*** 

BLOCK    SELECTION    METHOD   WILL    BE    MAXIMUM    CURRENT    POOL 

***C    OMPLETE         TABLE         OUM    P*** 

OUMP    RECUESTED    FROM    BLOCK    NUMBER    =    0    AT    LOCATION    =    0 

***T    ABLE         D    U    M    P***    AT    LOCATION    =    0 

CONSTANTS    <1>      <2>       <3>       <4>      <5>      <6>       <7>      <8>      <9>      <10>    <11>    <12>    <13>    <14> 
(EMPTY) 

AODR    TABL    <1>       <2>      <3>       <4>      <5>      <6>       <7>      <8>      <9>      <10>   <11>    <12>    <13>    <14> 

(EMPTY) 

» 

VALUE  STACK  (TOP  AT  127) 


CONT  STK   <1>   <2>   <3>   <4>   < 5>   <6>   <7>   <8>   <9>   <10>  <ll>  <12>  <13>  <14> 

BLOCK*    10 
ENTRY     10 


EXEC  STAC  <1>   <2>   <3>   <4>   <5>   <6>   <7>   <8>   <9>   <10>  <11>  <12>  <13>  <14> 
(EMPTY) 


****   FORMATTEO  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF     OP  CODE     CNS  ADR     RAW  SDDE      OPTIMIZATION 

SET                    /ETC                      TYPE 

******  ***********  ***********************  ****************************** 

0     0 

ENT 

c 

74 

0003804A 

1      0 

TOGGLE 

237 

OOOBUlOi 

2      0 

LOC 

,1 

0002000i 

3     0 

INT 

'0 

00050000 

4      0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6      0 

INT 

0 

00050000 

7     0 

STD 

0 

00290000 

8     0 

LOC 

3 

00020003 

9     0 

INT 

0 

00050000 

10     0 

STD 

0 

00290000 

11     0 

LOC 

9 

00020009 

12     0 

LOC 

2 

00020002 

13     0 

LOD 

0 

00270000 

14     0 

LOC 

3 

00020003 

. 

15     0 

LOD 

0 

00270000 

16     0 

MUL 

0 

00140000 

17     0 

STO 

0 

00280000 

18     0 

DEL 

0 

002A0000 

19     0 

ENT 

1 

00030001 

20     0 

LOC 

1 

00020001 

21     0 

LOD 

0 

00270000 

# 

22     0 

LOC 

2 

00020002 

23     0 

LCD 

0 

00270000 

24     0 

GTR 

0 

00210000 

25     0 

XIT 

73 

00040049 

26     0 

XIT 

28 

0004001C 

. 

27     0 

BSC 

0 

002F0000 

28     0 

ENT 

1 

00030001 

29     0 

ENT 

1 

00030001 

30     0 

LOC 

1 

00023001 

31     0 

LOD 

0 

00270000 

32     0 

LOC 

2 

00020002 

33     0 

LOD 

0 

00270000 

34     0 

GTR 

0 

00210000 

35     0 

XIT 

70 

00040046 

36     0 

XIT 

38 

00040026 

37     0 

BSC 

0 

002F0000 

38     0 

ENT 

1 

00030001 

39     0 

ENT 

1 

00030001 

40     0 

LOC 

1 

00020001 

41     0 

LOD 

0 

00270000 

42     0 

LOC 

2 

00020002 

43     0 

LOD 

0 

00270000 

44     0 

GTR 

0 

00210000 
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o:> 

u 

xi  r 

46 

0 

XIT 

47 

0 

BSC 

48 

0 

ENT 

49 

0 

LOC 

50 

0 

IOC 

51 

0 

LOD 

52 

0 

LOC 

53 

0 

LOO 

54 

0 

MUL 

55 

0 

STO 

56 

0 

DEL 

57 

0 

XIT 

58 

0 

BRS 

59 

0 

ENT 

60 

0 

LOC 

61 

0 

LOC 

62 

0 

LOO 

63 

0 

LOC 

64 

0 

LOD 

65 

0 

MUL 

66 

0 

STO 

67 

0 

DEL 

68 

0 

XIT 

69 

0 

BRS 

70 

0 

ENT 

71 

0 

XIT 

72 

0 

BRS 

73 

0 

ENT 

*****$*$****: 

**** 

48 

0 

1 

10 

2 

0 

3 

0 

0 

0 

0 

39 

0 

1 

11 

3 

0 

2 

0 

0 

0 

0 

29 

0 

1 

19 

0 

1 

£***:**#***$*#*$******* 


UUUtUUJB 
00040030 
002F0000 
00030001 
0002000A 
00020002 
00270000 
00020003 
00270000 
OOUOOOO 
00280000 
O02A0000 
00040027 
002EOOOO 
00030001 
0002000B 
00020003 
00270000 
00020002 
00270000 
00140000 
00280000 
002A0000 
0004001D 
002EOOOO 
00030001 
00043013 
002E0000 
C0030001 

##*******«*<:*****#l{:  *********  ******** 


BASIC  BLOCK  #1 

BEGINNING  AT  0,  ENDING  AT 
BLOCK  TRAVERSED  0  TIMES 
0  REFERENCES: 


***E  N  D 


0  F 


COMPLETE    TABLE 


D  U  M  P*** 


B  +  2 
8+3 
B+4 
B  +  5 
B+6 
b<7 
B  +  8 
B+9 
B  +  10 
6*11 
B«-12 
B  +  13 
B  +  14 
B  +  15 
B  +  16 
B*17 
B  +  18 
B  +  19 


LOC 
INT 
STD 

LOC 
INT 
STD 
LOC 
INT 
STD 
LOC 
LOC 
LOD 
LOC 
LOD 
MUL 
STO 
DEL 
ENT 


00020001 

00050000 
00290000 
O0J20002 
00050000 
GC290CCC 
00020003 
00050000 
O029U00O 
00020009 
00020002 
00270000 
00020003 
00270000 
00140000 
00280000 
002A0000 
00030001 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR 
C<75:76,*,77)   A(9,*,77)   A(3,*,76)   A(2,*,75) 

CONTROL  AT  19,  FROM  BLK  1  TO  BLK 


BLOCKS    2    IS: 
A{  1,*,74) 


CU9 

B  +  20 
B  +  21 
B+22 
B+23 
B+24 
B+25 
B  +  26 
B  +  27 


0 

ENT 

0 

LOC 

0 

LOD 

0 

LOC 

0 

LOD 

0 

6TR 

0 

XIT 

0 

XIT 

0 

BSC 

78 

1 

0 

2 

0 

0 

73 

28 

0 


2  (PASS  1) 

0003804E 
00020001 
00270000 
00020002 
00270000 
00210000 
00040049 
000400  IC 
OO2F000O 


INITIAL  CURRENT  OPTIMIZE!)  POOL  TO  BE  USED  FOR   BLOCK*  3 
C(75:76,*,77)   C  (  74:  75,  *  ,  78)   A(9,*,77)   A(3,*,76)   A(2, 


IS: 

*,75)   A(l,*,74) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  4  IS:- 

C(  75:76,*, 77)   C( 74 : 75, *  ,78 )   A19,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74) 

CONTROL  AT  28,  FROM  BLK  ?  TO  BLK  4  (PASS  1) 
C+28    0    IENT         JCI88     I  00038058 
B+29    0    IENT         1  |1      j  00030001 

INITIAL  CURRENT  OPTIMIZE!)  POOL  TO  BE  USED  FOR   BLOCK*  5  IS: 

C(  74:75,*, 78)   C( 75 : 76, *  ,  77)   A(9,*f77)   A(3,*,76)   A(2,*,75)   All,*, 74) 

CONTROL  AT  29,  FROM  BLK  <,  TO  BLK  5  (PASS  1) 
C*?9    0    {ENT         |C|93     |  00038050   | 
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aou 

0 

LUC 

B+31 

0 

LOU 

B»32 

0 

LOC 

B*33 

0 

LOO 

B*34 

0 

GTR 

B+35 

0 

XIT 

B+36 

0 

XIT 

B*37 

0 

BSC 

J 

00020001 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

70 

00040046 

38 

00040026 

0 

OO2F00O0 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  6  IS: 
C(75:76,*,77)   C( 74 : 75,* , 78)   A(9,*,77)   A(3,*,76)   A(2,*,75)   All,*, 74) 


INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  7  IS: 


\ 


C(75:76,*,77)   CI  74: 75,*  ,78 )  A19,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74) 

CONTROL  AT  38,  FROM  BLK  5  TO  BLK  7  (PASS  1) 

C*38    0    | ENT         I C I  103  00038067 

B*39    0    IENT         J  II  I  00030001 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  8  IS: 

C<74:75,*,78)   C 1 75 : 76, * ,771  A(9,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74) 

TO  BLK  8  (PASS  1) 


CONTROL  AT 

39,  FROM  BLK 

C+39    0 

ENT 

C 

B+40    C 

LOC 

B*41    0 

LOD 

B+42    0 

LOC 

B+43    0 

LOD 

B+44    0 

GTR 

B+45    0 

XIT 

Bf46    0 

XIT 

B+47    0 

BSC 

108 

0003306C 

1 

00020001 

0 

00270000 

2 

00020002 

0 

00270000 

0 

00210000 

59 

0004003B 

48 

00040030 

0 

O02F0000 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BLOCK*  9  IS: 
C(75:76,*,77)   C( 74: 75, * ,78)   A(9,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74) 

INITIAL  CURRENT  OPTIMIZED  POOL  TO  BE  USED  FOR   BL3CK*  10  IS: 


C( 75:76,*, 77)   C( 74: 75,*  ,78) 

FROM  BLK  8 


CONTROL  AT 

48, 

C+48 

0 

ENT 

B+49 

0 

LOC 

B*50 

o 

|  Qr 

B+51 

0 

LOD 

B+52 

0 

LOC 

B  +  53 

0 

LOD 

B*54 

0 

MUL 

B  +  55 

0 

STO 

8  +  56 

0 

DEL 

B  +  5  7 

0 

XIT 

B+58 

0 

BRS 

78) 

A(9,*,77) 

TO 

BLK  10  (PASS 

118 

00038076 

10 

0002000A 

■> 

00020002 

6 

00270000 

3 

00020003 

0 

00270000 

0 

00140000 

0 

00280000 

0 

00240000 

39 

00040027 

0 

002E0000 

A(3,*,76)   A(2,*,75)   A(l,*,74) 
1) 


BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  10  IS: 

C(74:75,*,78)   C( 75 : 76, * , 77 )   A(10,*,77)   A(9,*,77)   A(3,*,76)   A(2,*,75) 

All,*,  74) 


CURRENT  POOL  FOR  BLOCK*  8  IS: 

C( 74:75,*, 78)   C(75: 76,*, 77)   A(9,*,77)   A(3,*,76)   A(2,*,75)   Ail,*, 74) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 


CONTROL  AT 

59,  FROM  BLK  ( 

5  TO  BLK  9  (PASS  1) 

C+59    0 

ENT 

C 

113 

00038071 

B+60    0 

LOC 

11 

0002000B 

B+61    0 

LOC 

3 

00020003 

B+62    0 

LOD 

0 

00270000 

B+63    0 

LOC 

2 

00020002 

B+64    0 

LOO 

0 

00270000 

B«-65    0 

MUL 

0 

00140000 

B+66    0 

STO 

0 

00280000 

B+67    0 

DEL 

0 

002A0000 

B+68    0 

XIT 

29 

0004001D 

B+69    0 

BRS 

0 

002E0000 

BEFORE  THE  MEET  OPERATION: 

OUTPUT  POOL  FROM  BLOCK*  9  IS 
C(74:75,*,76)  C(  75: 76, * , 77 ) 
A(  1,*,74) 


A(ll,*,77)   A(9,*,77)   A(3,*,76)   A(2,*,75) 


CURRENT  POOL  FOR  BLOCK*  5  IS: 
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u  r*: /!>f*f  fBJ     Li  tsnbt*itn      A(y,*,/n      A(3,*,r6)      A(2,*(f!>j      Aiit*t/*l 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 

CONTROL  AT  70,  FROM  BLK  5  TO  BLK  6  (PASS  1) 
C+70    0    JENT         |C|98     I  00038062   I 
B*71    0    I XI T  19       00040013 

B*72    0    I8RS         I  JO      I  OO2E0000   I 

BEFORE    THE   MEET    OPERATION: 


OUTPUT    POOL    FROM    BLOCK/*    6    IS: 
C(74:75,*,78)       C< 75: 76, *,77)       A(9,*,77) 


A(3,*,76)   A(2,*,75J   A(l,*,74) 


CURRENT  POOL  FOR  BLOCK*  2  IS: 

C(75:76,*,77)   A(9,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74) 

AFTER  PERFORMING  THE  MEET  OPERATION: 

NEW  CURRENT  POOL/INPUT  POOL  IS  THE  SAME  AS  OLD  CURRENT  POOL 

CONTROL  AT  73,  FROM  BLK  2  TO  BLK  3  (PASS  1) 
C+73    0    |ENT         ICJ83     |  00038053   I 

FINAL  OPTIMIZATION  RESULTS 


OPTIMIZATION  AT  34 

(74,75124,78) 

OPTIMIZATION  AT  44 

(74,75124,78) 

OPTIMIZATION    AT    54 

(75,761  16,77) 

OPTIMIZATION  AT  65 

(75,76116,77) 


COMM  SUBEXP  EL1M 

COMM  SUBEXP  ELIM 

COMM  SUBEXP  ELIM 

COMM  SUBEXP  ELIM 


****   FORMATTED  INTERMEDIATE  CODE  DUMP   **** 

LOC  OFF     OP  CODE     CNS  ADR     RAH  CODE 

OPTIMIZATION 

SET                    /ETC 

TYPE 

*♦**************************#*  ************:****«:***^**#*******#  ******** 

0     0 

ENT 

74 

0003004A 

1      0 

TOGGLE 

257 

000B0101 

2      0 

LOC 

1 

00020001 

3     0 

INT 

0 

00050000 

4     0 

STD 

0 

00290000 

5     0 

LOC 

2 

00020002 

6     0 

INT 

0 

00050000 

7     0 

STD 

0 

00290000 

8      0 

LOC 

3 

00020003 

9      0 

INT 

0 

00050000 

10     0 

STD 

0 

00290000 

11     0 

LOC 

9 

00020009 

• 

12     0 

LOC 

2 

00020002 

13     0 

LOD 

0 

00270000 

14     0 

LOC 

3 

00020003 

15     0 

LOD 

0 

00270000 

16     0 

MUL 

1024 

00140400 

• 

17     0 

STO 

0 

00280000 

18     0 

DEL 

0 

002A0000 

19     0 

ENT 

78 

0003004E 

20     0 

LOC 

1 

00020001 

21     0 

LOD 

0 

00270000 

• 

22     0 

LOC 

2 

00020002 

23     0 

LOD 

0 

00270000 

24     0 

GTR 

1018 

002103FA 

25     0 

XIT 

73 

00040049 

26     0 

XIT 

28 

0004001C 

27     0 

BSC 

0 

002F0000 

28     0 

ENT 

88 

00030058 

29     0 

ENT 

93 

0003005D 

30     0 

LOC 

1 

00020001 

31     0 

LOD 

0 

00270000 

32     0 

LOC 

2 

00020002 

33     0 

LOD 

0 

00270000 

34     0 

GTR 

C 

1002 

00218JEA 

COMM  SUBEXP  ELIM 

35     0 

XIT 

70 

00040J46 

36     0 

XIT 

38 

00040026 

37     0 

BSC 

0 

002F0000 

38     0 

ENT 

103 

00030067 

39     0 

ENT 

108 

0003006C 
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4U             0 

LUC 

1 

41            0 

LOD 

0 

42            0 

LUC 

2 

43            0 

LOO 

0 

44            0 

GTR 

C 

986 

45            0 

xir 

59 

46           0 

XIT 

48 

47            0 

BSC 

0 

48            0 

ENT 

118 

49            0 

LOC 

10 

-    50           0 

LOC 

2 

51            0 

LOD 

0 

52           0 

LOC 

3 

53           0 

LOO 

0 

54           0 

MUL 

C 

974 

55           0 

STO 

0 

56            0 

DcL 

0 

57           0 

XIT 

39 

58           0 

BRS 

0 

59            0 

ENT 

113 

60            0 

LOC 

11 

61            0 

LOC 

3 

62            0 

LOO 

0 

63            0 

LOC 

2 

64            0 

LOD 

0 

65            0 

MUL 

c 

9  70 

66            0 

STO 

0 

67            0 

DEL 

0 

68            0 

XIT 

29 

69            0    ' 

BRS 

0 

70            0 

ENT 

98 

71            0 

XIT 

19 

72            0 

BRS 

0 

73            0 

ENT 

83 

************* 

************* 

**> 

c***** 

** 


UUU<£UUU1 
00270000 
00020002 
00270000 
002183DA 
0004003B 
00040030 
002F0000 
00030076 
0002000A 
00020002 
00270000 
00020003 
00270000 
001483CE 
00280000 
002A0000 
00040027 
OO2E0OOO 
00030071 
00020003 
00020003 
00270000 
00020002 
00270000 
001483CA 
00280000 
O02A000O 
00040310 
0O2E00O0 
00030062 
000400  13 
O02E0O0O 
00030053 

**********: 


COMM  SUBEXP  ELIM 


COMM  SUBEXP  ELIM 


COMM  SUBEXP  ELIM 


************************* 


FINAL  OPTIMIZATION  POOL  FOR  EACH  BLOCK  IS: 


FINAL  POCL  FOR   BLOCK*  1  IS: 
(NULL) 


FINAL  POCL  FOR   BLOCK*  2  IS: 

A<9,*,77)   A(3,*,76)   A(2,*,75>   A(l,*i74)   C( 75: 76, *, 77) 


FINAL  POCL  FOR  BLOCK*  3  IS: 

C<75:76,*,77)  C( 74: 75, * ,78)   A(9,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74) 

FINAL  POCL  FOR  BLOCK*  4  IS: 

C(75:76,*,77)  C( 74 : 75,* , 78)   A(9,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74) 

FINAL  POCL  FOR  BLOCK*  5  IS: 

A(9,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74)   C( 74:75, *, 78)   C( 75 :76  ,*  ,77 ) 

FINAL    POCL    FOR  BLOCK*    6    IS: 

C( 75:76,*, 77)  C( 74: 75,*  ,78)       A(9,*,77)       A(3,*,76)       A<2,*,75)       A(l,*,74) 

FINAL  POCL  FOR  8L0CK*  7  IS: 

C(75:76,*,77)  C( 74: 75, * ,  78)   A(9,*,77)   A(3,*,76)   A<2,*,75)   A(l,*,74) 

FINAL  POCL  FOR  BLOCK*  8  IS: ' 

A(9,*,77)   A(3,*,76)   A(2,*,75)   A(l,*,74)   C( 74: 75,*, 78)   C( 75 : 76,* ,77 ) 

FINAL    POCL    FOR  BLOCK*    9    IS: 

C( 75:76,*, 77)  Ci 74 : 75,* , 78)       A(9,*,77)       A(3,*,76)       A(2,*,75)       A(l,*,74) 
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UNAL     NJUL     f"UK        bLULM      10     1 S I 

C(75:76,*t77)       C( 74 : 75,*  ,78)       A<9,*,77)       A<3,*,76)       A(2,*,75)       A<1,*,74) 


BASIC 
BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 


BLOCK  #1 
BEGINNING 
BLOCK  TRAV 

0  REFERENC 
BLOCK  #2 
BEGINNING 
BLOCK  TRAV 

1  REFERENC 

1 

block  m 

BEGINNING 
BLOCK  TRAV 
1  REFERENC 

2 
BLOCK  #4 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 

2 
BLOCK  #5 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 

4 
BLOCK  #6 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 

5 
BLOCK  #7 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 

5 
BLOCK  #8 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 

7 
BLOCK  #9 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 

8 
BLOCK  #10 
BEGINNING 
BLOCK  TRAV 
1  REFERENC 

8 


AT  0, 
ERSEO 
ES: 

AT  19, 

ERSED 

ES: 


AT  73, 

ERSEO 
ES: 


ENDING  AT  19 
1  TIMES 


ENDING  AT  27 
1  TIMES 


ENDING  AT  73 
1  TIMES 


AT  28, 

ERSED 

ES: 


AT  29, 

ERSED 
ES: 


AT  70, 

ERSED 

ES: 


AT  38, 

ERSED 

ES: 


AT  39, 

ERSED 
ES: 


AT  59, 

ERSED 

ES: 


AT  48, 

ERSED 
ES: 


ENDING  AT  29 
1  TIMES 


ENDING  AT  37 
1  TIMES 


ENDING  AT  72 
1  TIMES 


ENDING  AT  39 
1  TIMES 


ENDING  AT  47 
1  TIMES 


ENDING  AT  69 
1  TIMES 


ENDING  AT  58 
1  TIMES 


BLOCK  SUMMARY  DATA: 

BLOCK  NUMBER 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


NUMBER  OF  PASSES 


TOTAL  NUMBER  OF  BLOCKS  PROCESSED  WAS  10 

USING  THE  MAXIMUM  CURRENT  POOL   BLOCK  SELECTION  ALGORITHM. 

TIME  FOR  THE  OPTIMIZATION  WAS  0.185  SECONDS. 

***CODE  SYNTHESIS  FILTER  IS  COMPLETE*** 
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COMPUTER  FROG RAM 


/*  */ 

/*  C  0  D  E   SYNTHESIS   FILTER   */ 
/*  */ 

/*   THIS  PROGRAM  OPERATES  ON  AN  INTERMEDIATE*/ 

/*   LANGUAGE  RECEIVED  FROM  THE  ALGOL-E       */ 

/*   COMPILER  IN  THE  FOLLOWING  FO-tM  */ 

/*  */ 

/*   BITS      8        8         1-       15     */ 

/*         OFFSET   OPCODE   C-F1ELD   ADDRESS   */ 

/*  /  TYPE  */ 

/*   USING  THE  META  -  EXECUTION  TECHNIQUE,    */ 

/*   THE  ALGORITHM  (Q)  OF  KILDALL  IS  */ 

•  /*   APPLIED  TO  THE  INTERMEDIATE  LANGUAGE.    */ 

/*   NO  CODE  OPTIMIZATION  IS  IN  FACT  DONE;    */ 

/*   RATHER  UPON  RECOGNITION  OF  A  POSSIBLE    */ 

/*   CODE  INEFFEICIENCY  BIT  16  IN  THE  32  BIT  */ 

/*   INTERMEDIATE  LANGUAGE  IS  SET  TO  INDICATE*/ 

/*   THAT  DURING  CODE  GENERATION  AN  */ 

/*   OPTIMIZATION  CAN  BE  ACCOMPLISHED.        */ 

/*   IMPORTANT  DATA  DESCRIPTOR  DEFINITIONS:   */ 

/*      EXEC     =  EXECUTION  STACK  FOR  THE     */ 

/*  META  EXECUTION  */ 

/*      CSFCODE  =  BUFFER  FOR  ALGOL-E  CODE     */ 

/*      ADDRESS  =  VARIABLE  DEFINITION  TABLES  */ 

/*      CON      b  CONSTANT  TABLES  */ 

/*      CONTROL  =  THE  LIST  OF  BLOCKS  TO  BE    */ 

/*  PROCESSED. ..PGM  TERMINATES  */ 

/*  WHEN  THIS  TABLE  IS  PAU      */ 

/*      STATE    =  POINTER  TABLE  TO  CURRENT    */ 

/*  STATE  INFO  FOR  EACH  BLOCK   */ 

/*  PROCESSED  */ 

/*      VTAB     =  EXPRESSION  STACK  FOR  ALL    */ 

/*  EXPRESSIONS  */ 

/*      EX       =  EXECUTION  STACK  FOR  THE     */ 

/*  META-EXECUTIONS  */ 

/*   OPTIM  TYPE  =  CODE  FOP.  THE  OPTIMIZATION   */ 

/*  TYPE  DETECTED  */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*  THE  FOLLOWING  TABLES  ARE  OUTPUT  FROM  THE  */ 

/*  PROGRAM  "GENERATOR"  AND  ARE  USED  TO       */ 

/*  DESCRIBE  THE  INTERMEDIATE  LANGUAGE.       */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*    BASIC    OPERATORS    SET    TO    0,1, ETC     IN    INITIAL*/ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

DECLAREINULL,  DEFAULT,  LOC,  ENT,  XIT,  INT,  REAL,  BOOL,  IARRAY,  RARRAY)  BITI8), 
NTYPES  LITERALLY'9' , 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*   REMAINDER  OF  THE  OPERATIONS  CODES        */ 

/*  */ 

/*<><><><><><><><><><><><><> <><><><><><><> <>*/ 

/%  */ 

(REFER,  TOGGLE,  PASS,  TRU,  RND ,  FLT,  ADD,  RADO,  SUB,  RSUB,  MUL ,  RMUL ,  OIV 
RDIV,  EXP,  RIXP,  IRXP,  RRXP,  LSS,  LEQ,  EOL,  NEQ,  GEQ,  GTR,  INEG,  RNEG,  NOT, 
BOR,  LOD,  STO,  STD,  DEL,  DUP,  XCH,  HLT,  BRS,  BSC,  NOP,  PRO,  RTN,  GET,  RET, 
RRD,  IRD,  BRD,  WRV,  DMP,  TAB,  SUP)8IT(8), 
NOPCODES  LITERALLY1 50" , 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*  CHARACTER  STRINGS  OF  LEGAL  OPCODES  -      */ 

/*  OPRANGE  IS  USED  TO  ACCESS  */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

OPCODES    CHARACTER     INITIAL* 
•NULLOEFAULTLOCENTXITINTREALBOOL  1  ARR  AYR  ARR  AY  REF  ERTOGGL  EP  A  S  STRURNDF  L  T  A  DDR  ADH  S'J  BRS 
UBPULRMULDI  VRDI  Vi:XPRIXPI  RXPRPXPLSSLEUE  CLNEQGE  QGT  R I NEGRNEGNOT  ANDBORL  ODSTO  STDOELOU 
PXCHHLTBRSBSCNOPPRORTNGETRETRRDIRDBRDWRVDMPTABSUP' ) , 


,     RD 
AND, 
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/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
/*  */ 

/*  START  CHAR  POSIT  OF  OP  CODES  IN  TABLE     */ 

/*  OPCODES:  */ 

/*  I    =    FIRST    CHARACTER  */ 

/*  I    *■     I    =    LAST    CHARACTER    *■     1  */ 

/*  */ 

/*<><><><><><><><>< ><><><><><><><><><><><><>*/ 

/*  */ 

OPRANGE(60)    BIT(8)     INITIAL(0,     4,     11,     14,     17,    20,     23,    27,    31,    37,     43,    48 
,    54,     58,    61,    64,    67,     70,     74,     77,     81,    84,    88,    91,     95,    98,     102,     106,     110,     113, 
116,     119,     122,     125,     120,     132,     136,     139,     142,     145,     148,     151,     154,     157,     160,     163, 
lt.6,     lo9,     172,     175,     178,     181,     184,     187,     190,     193,     196,    199,    202,     205,    208), 

/*  */ 

/*  */ 

/*  TYPE    OF    OPERATION    FOR    CASE    STATEMENTS,          */ 

/*  ETC.                                                                                                   */ 

/*  */ 

/*  */ 

OP_TYPE(59)  BIT(8)  INITIAHO,  0,  0,  0,  0,  0,  0,  0,  1,  1,  0,  0,  0,  7,  7, 
7,  8,  8,  0,  0,  8,  8,  0,  0,  0,  0,  0,  0,  0,  0,  8,  0,  0,  0,  0,  0,  0,  8,  8,  2,  4,  3 
,  5,  6,  9,  0,  11,  10,  0,  12,  13,  0,  0,  0,  0,  0,  0,  0,  0,  0), 
/*  */ 

/*  */ 

/*  DEGREE  OF  OPCODE  */ 

/*  OPERATORS  NECESSARY  TO  PERFORM  A  */ 

/*  PARTICULAR  OP  CODE.   STORED  IN  OP  CODE    */ 

/*  ORDER.  */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

0P_DEGL(59)  B1T(8)  INITIAHO,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  1, 
1,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  I,  1,  1,  2,  2,  1,  2,  2 
,  1,  0,  0,  0,  1,  2,  0,  1,  0,  1,  1,  0,  0,  0,  1,  0,  1,  1), 

/*  */ 

/*<><><><><><><><><><><><><><><>< ><><><><><>*/ 

/*  */ 

/*  DFGRFF    OF     RESULT  */ 

/*    THE    NUMBER    OF    RESULTS    RESULTING    FROM    EACH*/ 

/*    OP    CODE.  */ 

/*  */ 

/*  */ 

0P_DEGR(59)    BIT(8)     INITIAHO,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    1,    1, 

1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0 
,    0,     1,    0,    0,     0,     0,    0,    0,    0,     1,    0,     1,     1,    1,    0,     0,     0,    0), 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*                              TYPE    POINTER  */ 

/*    GIVES    A    DIFFERENCE    BETWEEN    CELLS    THAT  */ 

/*    ARE    EQUAL    TO    DE3L     +    DEGR    FOR    OPERATOR.  */ 

/*     INDEXED    BY    OP    CODE.       POINTS    TO    LOWER  */ 

/*    CP_1NF0    TABLE'TO    FIND    TYPES.  */ 

/*  */ 

/*  */ 

0P_INDEX(60)  BIT(8)  INITIAHO,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  3 
,  5,  7,  10,  13,  16,  19,  22,  25,  23,  31,  34,  37,  40,  43,  46,  49,  52,  55,  58,  61, 
63,  65,  67,  70,  73,  75,  78,  80,  81,  82,  82,  82,  83,  85,  85,  86,  86,  83,  89,  90, 
91,    92,     93,    93,    94,    95) , 

/*  "  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*  OPERATOR  INFORMATION  */ 

/*  TYPE  OF  OPERANDS  NECESSARY  AND  TYPE  OF    */ 

/*  RESULT  NECESSARY  FOR  OPERATIONS.   EACH    */ 

/*  LOCATION  HOLDS  A  TYPE  Ok  DEFAULT  INDICATR*/ 

/*  UP  TO  ENTRY  95.   ABOVE  95,  THE  TABLE       */ 

/*  REVERTS  TO  SIMPLIFICATION  DESCRIPTION.    */ 

/*  */ 

/*  */  r       m 

0P_INF0(170)    BITU6J     INITIAHO,    6,    5,    6,     5,    5,    6,     5,     5,    5,    6,    6,    6,    5,    5 
,     5,    6,     6,    6,     5,    5,    5,    6,    6,    6,    5,     5,     5j    6,    6,    6,     5,    5,     5,    6,     5,    6,     5,    6,    6,     6, 
6,    6,     1,     1,     7,     1,     I,    7,     I,     I,     7,     I,     1,     /,     I,     1,     7,     I,     1,     7,     5,    5,    6,    6,     7,    7,     7 
,    7.     7,    7,    7,     7,    2,    1,    2,    1.    1,    2,     1,     I,     1,    4,    7,    4,    4,    5,    2,    2,    6,    5,    7,     1,    5, 

1,  6,    3,    2,    2,    0,     3,    2,    2,     111,    3,    2,    3,    115,    3,     2,    3,    D,    5,    2,    2,    0,    5,    2,    2,    0 
,    2,    2,    3,    0,    2,    2,    3,    0,    3,    2,    3,    0,    3,    2,    3,    151,    2,    3,     5,    155,    2,    3,     5,     159, 

2,  3,    5,     163,    2,    3,    5,    0,    2,    5,    2,    0,    2,    5,    2,    0,    2,    5,    2,     167,    2,    5,    2,    0,    2,    5 


215 


/* 

/*<><><><><><><><> 

/* 

/*  POINTS  TO  STMPL 
/*  OP_lNFO  BY  OPER 
/*  STRUCTU 


/* 
/* 
/* 


S  IMP_I 
,  0,  0,  95,  99 
,  0,  0,  0,  0, 
0)  , 


X  *■ 
X  *■ 

/*  EACH  LO 

/* 

/* 

/* 

/*  ID 

/*  CONST  = 

/* 

/*  THE  ONL 

/*  A  SIMPL 

/*  27.   FO 

/* 

/* 

/* 

/* 

/* 

/* 

/*<><><><> 

/* 

NDEX(59) 

,  119,  123 

0,  0,  0,  0 


RED 
X  = 
1  = 
I 


AS: 

POIM 
OPES 
RESU 


CATION  I 
BITS  7  - 
ID0  OR  C 

MEANS  W 

SUBSCRl 

IDENT  IT 

Y  OPERAT 

IF  ICATIO 

R  EXAMPL 

I)  ADOS 

SUBTR 

EX  PON 

MULT  I 

DIVIO 


*/ 

*/ 

IFICATION    DESCRIPTION    IN       */ 
ATOR.       OP    INFO    ENTRIES    ARE*/ 

*/ 
T  TO  NEXT  RULE 
ANDS  10P  OEGL) 
LT  (OP  OEGR) 
S  8  BITS  AS  FOLLOWS: 

1  0 

ONST#  1  = 

0  = 
E  USE  VARIABLE  VALUES 
PT    TO  TABLE  OP  STR  TO  GET 
Y  CONSTANT  I  S  C"ONST#. 
ORS  WHICH  WILL  RESULT  IN 
N  RULE  ARE  NUMBERED  16  TO 
E  : 


*/ 

*J 
*/ 

*/ 

*/ 

CONST*/ 


ID 


2) 
3) 
<t) 
5) 


ACTS 

ENTIATION 
PLY 

ES 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


<><><><><><><><><><><><><><><><><>*/ 

*/ 

BIT(8)  INITIALIO,  0,  0,  0,  0,  0,  0,  0,  0, 
,  103,  107,  127,  131,  135,  139,  143,  147, 
,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 


0,  0,  0,0,  0 

0,  0,  0,  0,  0 

0,  0,  0,  0,  0 , 


(COLLE 
DUPL  IC 
BIT(8) 


C, L 0 AD, STORE, STORET, DELETE, 
,CONV,COMM,EXCH,COND,UCOND,GOSUB,RETSUB) 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/*<><><> 

/* 
0P_STR(2)     CHAR 

/-<><><> 

/* 

/*    THE    F 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*<><><> 

/* 
HASHBASE 


MAXVAL 
MAXEXE( 
FORMAL 
COMPU 

EXCON 

EXTYPE 

EXVALtf 

EXNAM8 

EXAODI 

VTSPAC 

VTABIM 

MAXSTA 

STATES 

STLOC 
VTOPR 

VTOP 
ETOP  F 
ETOPR 
ADDLOC 


*/ 

<><><><><><><><><><><><><><><><><><><><><>*/ 

*/ 

STANTS         */ 

TITY  CONSTANTS*/ 

DURE.  */ 

RE  FOUND  IN    */ 

*/ 

*/ 

<><><><><><><><><><><><><><><><><><>*/ 

*/ 


IDENTITY  CON 
THIS  TABLE  IS  USED  FOR  IDEN 
IN  THE  SIMPLIFICATION  PROCE 
SUBSCRIPTS  FOR  THIS  TABLE  A 
TABLE  OP_INFO. 


ACTER  INITIAL! •• ,  '0' , 


•1«  )  , 


OLLOWING  ARE  DECLARATIONS  FOR 
EXEC  S  TACK 

VALUE  TABLE  (EXPRESSIONS) 
STATE  STACK  (CURRENT  POOL) 
ADDRESS  TABLE 
CONSTANT  TABLE 
INTERMEDIATE  CODE  BUFFER 
BLOCKHEADER  POINTERS 
OPTIMIZATION  TYPE  TABLE 

LITERALLY       '127' , 


(MAXEXEC) 

(MAX  EXEC) 

(MAXEXEC) 

(MAXEXEC) 

MAXEXEC) 

E 

AXVAL) 

TE 

(MAXSTATE) 

FIXED, 


LITERALLY 
LI TERALLY 
LITERALLY 
LITERALLY 

BIT(1  ), 

BITJ8)  , 
BIT(16), 
BITU6), 
BIT( 16), 
LITERALLY 
BITU6), 
LITERALLY 
3IT( 16) , 


•  1024 
•25'  , 
■IS 
•0', 


•is 

•850' 


IXED, 
FIXED, 
R  FIXED, 


FIXED, 
FIXED, 


EADR  FIXED, 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


CURRE 

VALUE 

LIMIT 

LIMIT 

INDIC 

INDIC 

COMPJ 

CONST 

TYPE 

EQVAL 

NOT  J 

POINT 

PRESE 

EXPRE 

LIMIT 

HOLDS 

STATE 

STATE 

POINT 

TABLE 

POINT 

POINT 

TOP  0 

TOP  3 

TO  SA 

IN  TH 

BASF 

OPERA 


<>*/ 
*/ 
*/ 

*/ 
*/ 
*/ 

*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
<>*/ 
*/ 
NT  H 
TAB 
OF 
OF 
ATOR 
ATOR 
TATI 
ANT 
OF  C 
.  CL 
SED 
TO 
T  SP 
SSIO 
FOR 
POI 
INF 
POI 
TO 

ER  T 

ER  T 
F  EX 
F  AD 
VE  S 
E  TO 
IN  E 
ND 


ASHBA 
LE  ST 
VALUE 
EXEC 
FORM 
FOR 
ON 

INDIC 
ONSTA 
ASS  N 

ADDRE 
ACE  F 
N  TAB 

THE 
NTER 
0  FOR 
NTER 
TOP  0 

0  EXP 
0  EXE 
EC  ST 
DR  TA 
IATE 
P  OF 
XEC  S 


SE  USED 
ORAGE 

TABLE 
STACK 
AL  IDEN 
EXPRESS 

ATOR 

NT 

UMBER 

SS  TA3L 

OR  VAR 
LE 

STATE  T 

TO  CURR 

EACH  B 


F  EXPRESSION 


RESSION 
C  STACK 
ACK 

BLES  ** 
CONDIT I 
ADOR  TA 
TACK  OF 


IN  */ 
*/ 
*/ 
*/ 
T  IFIER*/ 
ION  */ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

STACK*/ 

*/ 

*/ 

USED  */ 

ONS    */ 

BLE    */ 

FIRST*/ 

*/ 


E 
TABLE 

ABLE 

ENT 

LOCK 


216 


KtblNU  HXtU, 

/* 

INUlCAttJK  FUR  WHbKt  KtbULI 

*/ 

/* 

VALUE  NUMBER  IS  FOUND 

*/ 

OPERTR  FIXED, 

/* 

OPERATOR 

*/ 

HASHADR  F  IXED, 

/* 

COLLISION  HASH  ADDRESS 

*/ 

MAXADI)           LITERALLY 

•850'  , 

/* 

MAX  LIMIT  OF  ADDRESS  TABLE 

*/ 

ADDRESS (MAXADD)  FIXED, 

/* 

INTERNAL  ADDR  NUMBER 

*/ 

AODTYPE (MAXADD)  BIT(8), 

/* 

TYPE  OF  NUMBER 

*/ 

ADDVAL  (MAXADD)   BIT(16), 

/* 

EQVAL.  CLASS  NUMBER 

*/ 

ADDCON(MAXADD)   B I T ( 1 6 ) , 

/* 

POINT  TO  CONSTANT  TAB 

*/ 

ADDLOC           FIXED. 
ADDNAM( MAXADD)  BIT<16), 

/* 

POINT  TO  ADDRESS  TABLE 

*/ 

/* 

IF  ADDRESS  ENTRY  IS  EQUAL 

*/ 

/* 

TO  A  COMPUTATION,  THIS  IS 

*/ 

/* 

THE  POINTER  TO  VTAB 

*/ 

MAXCON           LITERALLY 

•50', 

/* 

LIMIT  FOR  CONSTANTS 

*/ 

CONSYM(MAXCON)  CHARACTER, 

/* 

INTERNAL  SYMBOL  RE  PRE  SEN  TAT  I */ 

CONTYPE(MAXCON)  8IT(8), 

/* 

TYPE  OF  CONSTANT. .INT , ETC 

*/ 

CONADD(MAXCON)  8  IT (  16  >  , 

/* 

CONSTANT  ADDRESS 

*/ 

CUNVAL (MAXCON)  3ITU6), 

/* 

EQVAL.  CLASS  NUMBER 

*/ 

CONINT(MAXCON)  FIXED, 

/* 

CONSTANT  INTERNAL  VALUE 

*/ 

CONLOC  FIXED, 

/* 

POINTER  TO  CONSTANT  TABS 

*/ 

PASS#            FIXED, 

/* 

PASSES  FOR  CURRENT  BLOCK 

*/ 

#XITS            FIXED, 

/* 

EXITS  CURRENT  BLOCK 

*/ 

VALUE_NUM_CNTR   FIXED, 

/* 

ACTJAL  COUNTER  USED  TO 

*/ 

/* 

GENERATE  VALUE  NUM8ERS 

*/ 

CSF_FILE         LITERALLY 

•1', 

/* 

FILE  #  UPON  WHICH  THE 

*/ 

/* 

INTERMEDIATE  LANGUAGE  CAN 

*/ 

/* 

BE  FOUND 

*/ 

DISKWORDS        LITERALLY 

•903'  , 

/* 

3600  BYTES 

*/ 

MAXCODE          LITERALLY 

'2700'  , 

/* 

MAX  CODE  ALLOWED 

*/ 

flPARMS           LITERALLY 

•0«  , 

CCDELOC  FIXED, 

/* 

POINTER  TO  CSFCODE 

*/ 

CSFCODE (MAXCODE) FIXED, 

/* 

INPUT  COOE/CONS  AREA 

*/ 

OPTIM_TYPE(MAXCODE)  BIT(8), 

/* 

TABLE  TO  DECLARE  TYPE  OF 

*/ 

/* 

OPTIMIZAT ION  FOUND: 

*/ 

LASTCON  F  IXED, 

/* 

POINT  TO  THE  LAST  CONSTANT 

*/ 

MAXCONT          LITERALLY 

•50«  , 

/* 

LIMIT  FOR  CONTROL  TABLE 

*/ 

CONTROL(MAXCONT)  FIXED, 

/* 

BLKtf  -  PLK  FWA  **  THIS  IS 

*/ 

/* 

THE  LIST  FOR  THE  TABLE 

*/ 

/* 

PROCESSED  BLOCKS. 

*/ 

SAV  TOG(MAXCONT)  BIT(8), 

/* 

TOGGLES  FOR  THIS  BLOCK 

*/ 

SELECT_FLAG  FIXED, 

/* 

SET  TO  INDICATE  TYPE  OF 

*/ 

/* 

SELECTION  METHOD  DESIRED 

*/ 

/* 

FROM  CONTROL  LIST: 

*/ 

MAXBLK           LITERALLY 

•90'  , 

/* 

MAXIMUM  a    OF  BLOCKS  IN  A 

#/ 

x 

/* 

PROGRAM 

*/ 

BLK#  FIXED, 

/* 

HOLDS  CURRENT  BLK# 

*/ 

BLKCNT  FIXED, 

/* 

U    OF  BLOCKS 

*/ 

bLKLOC  FIXED, 

/* 

POINTS  TO  LWA  +  1  OF  THE 

*/ 

/* 

BLOCK  HEADER  AREA 

*/ 

BLKPNT(MAXELK)  FIXED, 

/* 

HOLDS  FWA  IN  CSFCODE  FOR 

*/ 

/* 

EACH  BLOCK  HEADER 

*/ 

BLKSIZE          LITERALL/ 

•4% 

/* 

PRESET  MINIMUM  SIZE  OF 

*/ 

/* 

BLOCK  HEADER 

*/ 

M  CONTROL  FIXED, 

/* 

POINT  TO  CSF  FILE  FOR  FLOW 

*/ 

CTOP  FIXED, 

/* 

CONTROL  STACK  POINTER 

*/ 

CURBLOCK  FIXED, 

/* 

HOLDS  ADDRESS  OF  CURRENT 

*/ 

/* 

BLOCK  HEADER 

*/ 

MAX_OPTIMIZATIONS  LITERALLY 

•100'  , 

/* 

LIMIT  ON  THE  NUMBER  OF 

*/ 

/* 

OPTIMIZATIONS  THAT  CAN  BE 

*/ 

/* 

FOUND. 

*/ 

OPTIM_ADR_LIST(MAX_OPTIMIZATIONS 

,/* 

HOLDS  THE  OPTIMIZATION  EXP 

*/ 

/* 

BLOC<  ADDRESS  IN  THE  TOP 

*/ 

/* 

OF  VTAB  FOR  EVERY  POSSIBLE 

*/ 

/* 

OPTIMIZATION. 

*/ 

OPTOP            FIXED, 
/* 
/*<><><><><><><><><><><>• 

/* 

POINTER  TO  OPTIM  ADR  LIST 
*/ 
C><><><>*/ 

*/ 

»<><><>< 

><>< 

/* 

*/ 

/*           MISC  VARIABLES 

*/ 

/* 

*/ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

FIRSTCALL  BIT(l), 

/* 
/* 

USED  IN  PERMUTE  TO  INDICATE*/ 
THE  FIRST  PASS  FOR  A  STRING*/ 

BOPA  FIXED, 

/* 

FIRST  OPERAND  POINTER 

*/ 

BOPB  FIXED, 

/* 

SECOND  OPERAND  POINTER 

*/ 

TADDLOC  FIXED, 

/* 

CURRENT  BUTTOM  OF  ADDRESS 

*/ 

/* 

TABLE  FOR  BLOCK  BEING 

*/ 

/* 

PROCESSEO 

*/ 

NUM_SELECT_METHODS    LITERALLY 

•3', 

/* 

MAX  NUMBER  FOR  BLOCK  SELECT*/ 

/* 

CODE 

*/ 

STRTIME  F IXED, 

/* 

HOLDS  THE  TIME  FOR  START  OF*/ 

/* 

OPTIM 

*/ 

PAUTIME  FIXED, 

/* 

HOLDS  COMPLETION  TIME  FOR 

*/ 

/* 

OPTIM 

*/ 

TOTIME  FIXED, 

/* 

HOLDS  TOTAL  TIME  FOR  OPTIM 

*/ 

/* 

IN  CENTI SECONDS 

*/ 

SECONDS  FIXED, 

/* 

HOLDS  SECONDS  FOR  OPTIM 

*/ 

PRTSEC  FIXED, 

/* 

HOLDS  PARTIAL  SECONDS  FOR 

*/ 

/* 

npr  im 

*/ 
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TRUE  BIT( 
FALSE  BIT 
RIGHT  BIT 
LEFT  BIT( 
PAGEJT  CH 
SINGLE  CH 
SINGLE  3P 
PAGE.EUEC 
/*< 
/* 
/* 
/* 
/*< 
#TOGS 
TOGGLES  ( 
TRACETOG 
TABLETOG 
PRGPTOG 
BRANCHTOG 
PUNCH TOG 
COL#  FIXE 
T  WIDTH 
N.COLS 
C_WIDTH 
BLANKS 
TBUFF 
HEAOING 
#EXF 
#CNF 
#ADF 
#CTF 


1)  INITIALC'l") 

(I)  INI Tl AL( "0") , 

(  1  )  INI  TI  ALC'l"  i  f 

1)  IMIT  IALC'O")  i 

ARACTER  INITIAL! 

ARACTER  INITIAL 

ACE  LITERALLY  'OUTPUT(l)  =  SIN( 

T  LITERALLY  'OUTPUT(l)  =  PAGEJ" 


( 


L«  ) 


) 


/*  USED  TO  PAGE  EJECT 
/*  USED  TO  SINGLE  SPACE 
GLE', 
T'  , 

><><><><><>*/ 
*/ 

DECLARATIONS  FOR  THE  CSF  TRACE  ROUTINES   */ 

*/ 
<><><><><><><><><>*/ 
5'f  /*  #  OF  PRINT  TOGi 


*/ 
*/ 


><><><><>< 
LIT 

0TOGS) 


D, 


><><><><><><> 

ERALLY  • 
BIT(  I  ), 

LITERALLY  ' 

LITERALLY  ■ 

LITERALLY  • 

LITERALLY  ' 

LITERALLY  ' 


LES 


*/ 


LIT 
LIT 

LIT 

CHARACTE 

CHARACTE 

CHARACTE 

LI  T 

LIT 

LIT 

LIT 


ERALLY 

ERALLY 

ERALLY 

R  t 

R  t 

R  f 

ERALLY 

ERALLY 

ERALLY 

ERALLY 


TOGGLES 
TOGGLES 
TOGGLES 
TOGGLES 
TOGGLES 

10«  , 
14', 
5.S 


(0) 
(  1} 
(2) 
(3) 
(4) 


/*SET  IF  TRACE  REQUESTED*/ 
/*  SET  IF  TABLES  REQUEST*/ 
/*  SET  IF  PROPAGATION  */ 
/*  SET  IF  MULTIPLE  EXIT  */ 
/*  SELECT  PUNCH  CARDS    */ 


3', 
3', 

3!» 

is 


SIZE 

NUMB 
SIZE 
USED 
BUFF 
BUFF 
H    OF 


SELECT    METHOD    <4)    CHARACTER     INITIAL     <«L 
•STEEPEST    DESCENT    (MINIMUM    CURRENT 
•FIRST-IN-FIRST-OUT     •, 
•MAXIMUM    CURRENT    POOL     'Jt 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 
AST-IN-F 
POOL)     't 


OF    HDR    TITLE 

ER    OF    COLUMNS 
OF    COLUMNS 
TO    FORCE    SPACES 

ER    FOR    OUTPUT 

ER  FOR  HEADERS 
FIELDS  FOR  EXEC  HEAD 
FIELDS  FOR  CON  HEAD 
FIELDS  FOR  ADR  HEAD 

ELDS  FOR  CONTROL  HEADE 


BLOC 
MESS 


K  SELECTION  METHOD 
AGES 

0  = 

1  = 

2  = 

3  = 


LIFO 

STEEPEST  DESCENT 

F  IF 0 

THE 
MAX  I 
POOL 


BLOCK  WITH  THE 
MUM  CURRENT 
IS  SELECTED 


IRST-OUT  • 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
R*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


TYPOPTIM  (5)  CHARACTER  INITIAL!'  ',  'SI 
•CONSTANT  PROPAGATION',  'COMM  SUBEX 
•COMM  SUBEXP  ELIM  I    CONS  PROP'), 


EXHEAD  U'EXF)  CHARACTER  IN  I T I AL ( ' EXCON' 
•EXVAL#')t 


ADHEADUAOF)    CHARACTER    I  N  IT  I  AL  (  '  ADDRESS 
•ADDCON* ) t 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


TABLE  FOR 
MESSAGES. 
ARE 


OPTI MIZA' 
CURRENT 


ION 


TYPES 


*/ 
TYPE*/ 


0  = 

1  = 

2  = 

3  = 

4  = 


*/ 
*/ 
*/ 
*/ 
*/ 


NONE 

SIMPLIFICATION  RULE 
APPLIES 

CONSTANT  PROPAGATION*/ 
COMMOM  SUBEXPRESSION*/ 
ELIMINATION  */ 

COMMON  SUBEXPRESSION*/ 
THAT  LINKS  TO  A  */ 
CONSTANT  PROPAGATION*/ 

*/ 


CNHEAD  UCNF)  CHARACTER  INI  TI  AL  (  •  CONSYM 
•CONINT' ), 


MPLIFICATION"  , 
P  ELIM', 

/*  */ 

/*  EXEC  STACK  PRINT  HEADINGS  */ 

/*  */ 
, 'EXTYPE' t 'EXADO' , 

/*  */ 

/*  ADDR  TAB  PRINT  HEADINGS  */ 

/*  */ 
• , 'ADDTYPE' f • ADDVAL*  f 

/*  */ 

/*  CONSTANT  TABLE  PRINT  HEAD  */ 

/*  */ 

• , 'CONTYPE' , 'CONVAL* , 


/*  */ 

/*  CONTROL  STACK  PRINT  HEADING*/ 


CTHEAD  UCTF1  CHARACTER  I NI TI AL( 'BLOCKS 


ALTEX 
ALTAO 
ALTCN 
ALTST 
ALTCT 
ALTVL 


Bum 

BITd) 
BITd  ) 
BIT(l) 
BITd  ) 
BITd) 


/* 

•  ,  'ENTRY'  )  , 

/*  TOGGLES  TO  INDICATE  THAT 

/*  VARIOUS  TABLE  DUMPS  ARE 

/*  REQUESTEO  WHEN  W_ALL  IS 

/*  CALLED. 

/*  EXEC  STACK  DUMP 

/*  ADDRESS  TABLE  DUMP 

/*  CONSTANT  TABLE  DUMP 

/*  STATE  TABLE  DUMP 

/*  CONTROL  STACK  DUMP 

/*  RAW  VALUE  TABLE  DUMP 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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/*  */ 

/*  LINE  FEED  */ 

/*  ROUTINE  SIMPLY  RESULTS  IN  A  LINE  FEED     */ 
/*  IN  THE  OUTPUT,  IE  A  BLANK  LINE.  */ 

/*  */ 

/*<><><> <><><><><><> <><><><><><><><><><><><>*/ 
LINE  FEED:  PROCEDURE  (LF#)5 

OECLARE  (LF#,  COUNT)  FIXED; 
COUNT  =  0; 

DO  WHILE  COUNT  <  LF#; 
SINGLE  SPACE; 
IF  PUNCHTOG  THEN 
CUTPUT(2)  =  •  '; 
COUNT  =  COUNT  4-  1; 


END 


END 
LINE_ 


ERROR:  PR 
DECLA 
OUTPU 
IF  PU 
OUTPU 
CALL 

END  ERROR 


feed; 

/*< 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/-> 

/* 

/* 

/* 

/* 

/* 

/* 

/*< 

OCEDURE 
RE  h  CHA 
T  =  '  ** 
NCHTOG  T 
T12)  =  ' 
LINE_FEE 


><><><><><><><><><><><><><><><><><><><><>*/ 

*/ 

ERROR 
MESSAGE  OF  M  AND  ERROR 


OUTPUTS 

NUMBER 

ERRORS 


ERROR 
OF  I 
ARE: 
NUMBER 

1 

2 

3 
<* 
5 
6 


CAUSE 
VARIOUS  STACK  OVERFLOWS 
ERROR  IN  ADDRESSING  OF 
OF  VARIOUS  TABLES. 
MATHEMATICAL  OPERATION 
REQUESTED  IS  INCORRECT 
INPUT  CODE  FILE  EXCEEDS 
MAX  PROGRAM  SIZE 
BLOCK  SELECTION  CODE 
REQUESTED  IS  TOO  LARGE 
TRIED  TO  DELETE  A 
NON-EXISTENT  VALUE  tt 
FROM  THE  CLASS  CCCURANCE*/ 
LIST  IN  PERFORM_MEET  OP.*/ 
THE  OPTIMIZATION  ADDRESS*/ 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


10 

ROUTINES  CALL 
L 


TABLE  HAS  OVERFLOWED. 
PRESENTLY  THE  PGM  CAN 
HANDLE  UP  TO  100 
OPTIMIZATIONS. 
COMPILATION  ERROR 


ED: 
INE.FEED 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


>0<><><><><>0<><><><><><><>  <><><><><><>*/ 

(M,u; 

RACTER, 
*  MlMl 
HEN 

***    *  I  I M 1  I ■    ***  ERROR    TYPE    :=       '     II     I; 

D(2); 


I     FIXED; 
| •    ***         ERROR    TYPE     :=       'III; 


/*<><><><><><><><><><><><><><><><><><><><><>*/ 


/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 


PAD 
THIS  ROUTINE  PADS  A  STRING  WITH  SPACES 
TO  A  SPECIFIED  LENGTH  (SPACES  ADDED  TO 
RIGHT  OR  LEFT  AS  DETERMINED  BY  OIR  IND. 

0  =  LEFT 

1  =  RIGHT 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


PAD:  PROC 
DECLA 
IF  DI 
DO  WH 
S 
END; 
ELSE 
00  WH 
T 
T 
S 
END; 
RETUR 
END  PAD; 


/*<><><><><><><><><><><><><><><><><><><><><>*/ 

EDUREISTRING,  SIZE,  DIR)  CHARACTER; 

REIT,  STRING)  CHARACTER,  SIZE  FIXED,  DIR  BIT(l); 

R  THEN 

ILE    LENGTH(STRING)     <    SIZE; 

TRING    =    STRING     II     •     • ; 


ILE    LENGTH(STRING)    <    SIZE; 
=    •     •  • 

=  T  |  |  STRING; 
TRING  =  T; 

N    SUBSTR(STRING,    0,    SIZE); 

/*<><><><><><><:><><  ><>ooo<><><><><><:><><>*/ 
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/* 

*/ 

/*                        HEX 

*/ 

/*  CONVERTS  I  TO  HEX  IOEC I MAL  FORMAT  ANO 

*/ 

/*  RETURNS  IT  AS  A  STRING. 

*/ 

/* 

*/ 

HEX:  PROCEDURE  (INVAL)  CHARACTER; 

DECLARE  (INVAL,  NUMDIG,  DIG) 

T  =  •  •  ; 

DO  NUMDIG  =  0  TO  7; 

DIG    =    SHR( INVAL, SHLINUM3I 
T    =    SUBSTRC0123456789A3C 

END; 


END 


RETURN  T; 

HEX; 

/*<><><><><><><><>< 

/* 

/*              W  CL 

/*   OUTPUTS  TBUFT  A 

/*   AND  COLUMN  COUN 

/*   NOT  BE  OUTPUT  I 

/* 

W_CLEAR:     PROCEDURE; 

IF  LENGTH! TBUFF)  >  0  THEN 

DO; 

OUTPUT  =  TBUFF; 
IF  PUNCHTOG  THEN 
OUTPUT<2)  =  TBUFF5 

END; 

T3UFF  =  • '  ; 

COL#=0; 

ENO  w_clear; 


FIXED,  T  CHARACTER; 

G,  2))  £  "F"; 

DEF'  ,  DIG,  I)  ||  T; 


*/ 

EAR  */ 

NO  THEN  SETS  IT  TO  NULL  */ 
TER  TO  ZERO.  TBUFF  WILL  */ 
F  IT  IS  NULL.  */ 

*/ 


/* 

/*  W_TI 

/*  OUTPUTS  STRING 

/*  THE'  TI TLE  WIDTH 

/*  IN  TURN  MARKS  T 

/*  REMAINDER  OF  TH 

/*  BUILT. 

/*  ROUTINES  CALLED 

/*  PAD 
/* 


*/ 

TLE  */ 

T  AS  A  TITLE  LINE.        */ 
IS  SET  BY  T-WIDTH  WHICH  */ 
HE  COLUMN  COUNTER  SO  TH 
E  TITLE  LINE  CAN  BE 


/*<><><><><><><><>< 

TITLE:     PROCEDURE     (T); 

DECLARE     T    CHARACTER,     I     FIXED; 

IF    LENGTH(T)     >    T_WIDTH    THEN 

T    =    SUBSTRIT,     0,     T_W  IDTH) ; 

ELSE 

T    =    PAD(T,T    WIDTH, RIGHT); 

COL#=T    WIDTH; 

DO    I     =    1    TO   N_COLS; 

COL#    =    COL#    +    C    WIDTH? 

T  =  T  ||'  <•  I  |I  |  |  •>•; 

T  =  PAD(T,COL#, RIGHT); 
END; 

OUTPUT  =  T; 
IF  PUNCHTOG  THEN 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


END 


OUTPUT(Z) 

=  T 

COLtf  =  0; 

W_TITLE; 

/*<> 

/* 

*/ 

/* 

READ  SELECT  METHOD              */ 

/* 

THIS  ROUTINE  INPUTS  THE  BLOCK  SELECT      */ 

/* 

METHOD  CODE:                              */ 

/* 

0  =  LIFO                                */ 

1  =  STEEPEST  DESCENT                  */ 

/* 

/* 

2  =  FIFO                               */ 

/* 

3  =  FIFO  AND  THEN  STEEPEST  DESCENT    */ 

/* 

4  =  LIFO  fi.\d    THEN  STEEPEST  DESCENT    */ 

/* 

5  =  BLOCK  WITH  MAXIMUM  CURRENT  POOL   */ 

/* 

SELECTED                          */ 

/* 

*/ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

_SELECT_METHOO:  PROCEDURE  FIXED; 

READ 

DECLARE  TEMA  FIXED; 

TBUFF  =  INPUT; 

TEMA  =  BYTEITBUFF,  0) 

TEMA  =  TEMA  -  "CO"; 

TBUFF  =  • • ; 

RETURN  TEMA; 
END  READ_SELECT_METHOD; 


220 


PUTS  S 
INTO  T 
RESULT 
ROUT  IN 


W  ITEM:  PROCEO 
DECLARE  < I 
IF  COL#=0 
00; 

IF  N=l 

oo; 

TB 

IF 

TB 

END;  E 

00; 
I 

TB 

end; 

TBUFF 
COL#  = 

END; 

IF  LENGTH! 
T  =  SUBSTR 
COL#  =  COL 
TBUFF  =  TB 
TBUFF  =  PA 
I=N  MOO  N 
IF  1=0  THE 
00; 

OUTPUT 
IF  PUN 
OUTPUT 
TBUFF 
COL#  = 

END; 
END  W_ITEM; 


/* 
/* 

/* 
/* 

/* 

/* 

/* 

/* 

/*<><><><> 

URE  (N,T); 

iNIFIXEOf 

THEN 

THEN  • 

UFF  =  •  • 

LENGTH! TB 
UFF  =  SUSS 
LSE 

=  N  /  N  CO 

=  ( I  *   T) 

UFF=«     ' 


*/ 

W  ITEM  */ 

TRING  T  BEGINNING  AT  COLUMN  N      */ 

BUFF.   IF  TBUFF  IS  FILLED  AS  A     */ 

OF  THE  OPERATION  TBUFF  IS  OUTPUT.*/ 

ES  CALLED:  */ 

PAD  */ 

*/ 

T  CHARACTER; 


M  HEADING; 

UFF)  >  T.WIDTH  THEN 

TR(TBUFF,  0,  T_WIOTH); 


LS; 

*  N  COLS; 

II iTI'+«; 


=  PADITBUFF, T_WIDTH, RIGHT) ; 
T_WIDTH; 


T)  >=  C  WI 

( T ,  0 ,  C_W 

#  ♦  C  WIDT 

UFF  IT  '  i  ' 

0(TBUFF,CO 

COLS; 

N 

=  TBUFF; 
CHTOG  THEN 
(2)  =  TBUF 

=  •  '; 
o; 


/* 
/* 
/* 
/* 
/* 
/* 
/*<><><><> 

RE  (COL,  A 
OL,  ADR)  F 


PUTS  NU 
ROUTINE 


W    NUM:    PROCEDU 

DECLARE    <C 

T    =    ADR; 

CALL    W_ITEM(COL,    T); 
END    W_NUM; 

/* 
/* 

/*  PUTS  0 
/*  J  IN  C 
/*  POINTE 
/*  SIMPLY 
/*  OPCODE 
/*  ROUT  IN 
/* 
/* 

/*<><><><> 
URE  (N,I); 
,J,N)  FIXE 
Ell  ); 

Ed  ♦■  1)  - 
M(N, SUBSTR 


W_TYPE:  PROCED 
DECLARE  (I 
J  =  OPRANG 
I  =  OPRANG 
CALL    W_1TE 

END    W_TYPE? 


DTH    THEN 
IDTH    -    1)  ; 

fl    t; 

Li/, RIGHT); 


FS 


*/ 

W    NUM  */ 

MBER  AT  ADDRESS  IN  COLUMN  OF  TB'JFF*/ 

S  CALLED:  */ 

W_ITEM  */ 

*/ 

DR)  ; 

IXED,  T  CHARACTER; 


*/ 

W_TYPE  */ 

PERATION  CODE  SPECIFIED  BY  I  AND  */ 
OLUMN  N  OF  TBUFF.  I  AMD  J  ARE  */ 
RS  TO  THE  OPRANGE  TABLE  WHICH  */ 
IS  FWA/LWA  FOR  ADDRESSING  THE  */ 
S  TABLE.  */ 

ES  CALLED:  */ 

W_ITEM  */ 

*/ 
<><><><><><><><><><><><><><><><><>*/ 

o; 
J; 


PUTS  Y 

IN  COL 
SIMPLY 
ROUT  IN 


W_CON:  PROCEDU 
DECLARE  (N 
IF  C  THEN 
CALL  W_ITE 
ELSE  CALL 

END  W_CON; 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*<><><><> 

RE  (N,C); 

,C)  FIXED; 

M(N,  'Y'); 
W_ITEM(N, 


(OPCOOES, J,  I)  ); 

*/ 

W_CON  */ 

OR  N  DEPENDING  ON  C  (TRUE/FALSE)  */ 

UMN  N  OF  TBUFF.   THE  Y  OR  N        */ 

THE  CONSTANT  INDICATOR.  */ 

ES    CALLED:  */ 

W_ITEM  */ 

*/ 


NM; 
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/*  */ 

/*  W  EXEC  */ 

/*  PRINT  THE  EXEC  STACK  TABLES  */ 

/*  ROUTINES  CALLED:  */ 

/*  W  TITLE  */ 

/*  LINE  FEEO  */ 

/*  w_cofl  */ 

/*  W  TYPE  */ 

/*  W  NUM  */ 

/*  WlCLEAR  */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
W  EXEC:  PROCEDURE; 

DECLARE  U,J)  FIXED; 

ALTEX=0; 

CALL    W_TITLEC     EXEC    STACK'); 

IF    ETOP    <    1    THEN 

DO; 

OUTPUT  =  ■  (EMPTY)1; 
IF  PUNCHTOG  THEN 
OUTPUTI2)  =  •  (EMPTY)*; 
CALL  LINE_FEED(2); 
RETURN; 

END; 

DO    I     =    0    TO    #EXF; 

HEADING=EXHEAD(  I  ); 

DO    J    =     1     TO    ETOP; 

DO    CASE    I; 

CALL    W_CON( J,EXCON( J)): 
CALL    W_TYPE(  J.EXTYPEU)); 
CALL    W    NUM( J,EXADD( J) ) J 
CALL    W_NUM( J*EXVAL#(J)1 i 
END; 
END; 

CALL    W_CLEAR; 
END; 

CALL    LINE_FEED(2); 
END    W_EXEC; 

/*  */ 

/*  W  ADD  */ 

/*  PRINTS  THE  AODRESS  TABLES.  */ 

/*  ROUTINES  CALLED:  */ 

/*  W  TITLE  */ 

/*  LINE  FEED  */ 

/*  W  NUFI  */ 

/*  W  TYPE  */ 

/*  W  CLEAR  */ 

/*  */ 

W_ADD:  PROCEDURE; 

DECLARE  (I,  J)  FIXED; 

ALTAD=0; 

CALL  W.TITLEC  ADDR  TABLE'); 

IF  AODLOC  <  1  THEN 

DO; 

OUTPUT    =     '     (EMPTY)'; 
IF    PUNCHTOG    THEN 
OUTPUT(2)     =     •     (EMPTY)'; 
CALL    LINE_FEED12) ; 
RETURN; 
END; 
DO    I    =    0    TO   #adf; 

HEADING  =  ADHEAD(  I  ); 
DO    J    =     1    TO    ADDLOC; 
DO    CASE     I; 

CALL    W_NUM( J, ADDRESS! J) ) ; 
CALL    W_TYPE( J, A3DTYPE( J) J; 
CALL    W_NUM    ( Jt AODVALI J) ) ; 
CALL    W_NUM    ( J,ADDCON(J ) ) J 
END; 
END; 

CALL    W_CLEAR; 
END; 

CALL    LINE_FEED(2); 
END    H_ADD; 
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/* 

/* 

W  CONS 

/* 

OUTPUTS 

THE 

CONSTANT 

TABLES. 

/* 

ROUTINES 

CALL 

/* 

W  TITLE 

/* 

LINE  FEED 

/* 

W_ITEM 

/* 

W  TYPE 

/* 

W  NUM 

/* 

W  CLEAR 

/* 

/*<>o<><><><><><><><><><><><><><  ><><><><><>*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

CONS:     PROCEDURE; 

DECLARE     (I, J)     FIXED; 

ALTCN=0  5 

CALL    W_TITLE('     CONSTANTS'); 

IF  CONLOC  <  I  THEN 

DO; 

OUTPUT  =  '  (EMPTY) • ; 
IF  PUNCHTOG  THEN 
OUTPUT(2)  =  •  (EMPTY)'; 
CALL  LINE_FEED(2) ; 
RETURN; 
END; 
DO  I  =  0  TO  #CNF; 

HEADING=CNHEAD( I ) ; 
DO  J  =  1  TO  CCNLOC; 
DO  CASE  I; 

CALL  W_ITEM(  J.CONSYMU)  );  . 
CALL  W_TYPE( J,COMTYPE( J) ) ; 
CALL  W_NUM  < J,CONVAL( J) ) ; 
CALL  W_NUM  < J,CONINT( J)); 

END; 
END; 

CALL    W_CLEAR; 

end; 

CALL    L1NE_FEED(2); 

Cju  rs     •  i    •"  p  v  <~  • 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
/*  */ 

/*               W_CONT  */ 

/*  OUTPUTS  THE  CONTROL  STACK.  */ 

/*  ROUTINES  CALLED:  '                 */ 

/*               W  TITLE  */ 

/*              LTNE  FEED  */ 

/*              W  ITEM  */ 

/*              W_NUM  */ 

/*              W_CLEAR  */ 

/*  */ 
/*<><><><><><><><><><><><><><><><><><><><><>*/ 
CONT:  PROCEDURE; 

DECLARE  (I,J)  FIXED; 

ALTCT=0; 

CALL  W_TITLEC  CONT  STK'); 

IF  CTOP  <  1  THEN 

DO; 

IF  PUNCHTOG  THEN 
OUTPUT(2)  =  •  (EMPTY)'; 
OUTPUT  =  '  (EMPTY)  •  ; 
CALL  L  INE_FEED(2) ; 
RETURN; 

end; 

DO  I  =  0  TO  #CTF; 

HEADING=CTHEAD< I ) ; 

DO    J    =     1     TO    CTOP; 

DO    CASE    I; 

IF    SHR (CONTROL ( J) ,31)     THEN 
CALL    W_ITEM( J,'*' ) ;     ELSE 
CALL    W_NUM( J,SHR( CONTROL( J) , 16) ) ; 
CALL    W_NUM( J,CONTROL( J) £"FFFF" ); 
END; 
END; 

CALL    W.CLEAR; 
END; 

CALL    LINE_FEED(2); 
END    W_CONT; 
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W_VAL: 
DEC 
ALT 
TBU 
N  = 
GUI 
IF 
OUT 
I  = 
J  = 
DO 


PROC 

LARE 

VL  =  0 

FF  = 

T_W 

PUT 

PUNC 

PUT( 

VTL) 

VTA 

WHIL 

K  = 

IF 

ELS 

M  = 

L  = 

K  = 

T=T 

K  = 

L  = 

DO 


/* 
/* 

/*  OUTPUTS 

/* 

/* 

/* 

/* 

/* 

/*  ROUTINE 

/* 

/* 

/* 

;dure; 

(  I  ,J,N,K,L,M 


<><><><> 

W  V 

THE  VA"L 
C(X  Y  I 
X  =  OPEK 
Y  =  CLAS 
Z  =  CLAS 
W  =  CLAS 
S  CALLED 

w_c 
lTn 


*/ 

AL 

UE  STACK  IN  THE  FORMAT 

|  W) 

ATOR 

S  *  OPERAND  A 

S  #    OPERAND  B 

S  H    FOR  COMPUTATION 


)  FIXED 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
LEAR  */ 

E_FEEO  */ 

*/ 

,  T  CHARACTER; 


FND 
T  =  T 
I  = 
J  = 
IF 

do; 


IDTH  * 
s  '  VAL 
HTOG  TH 
2)  ='  V 

p; 

B(VTOP) 

E  J  >  0 

VTAB( J 

SHR(K, 

E  T  =  • 

K  &  "  F 

OPRANG 

OPRANG 

1 1-  ci T 

OP_DEG 

J  *  3; 

WHILE  K 
K  =  K 
T  =  T 
L  =  L 


N_COLS  *  C_WID 

UE  STACK  (TOP 

EN 

ALUE  STACK  (TOP  AT  •  | | VTOP | |  « )  •  ; 


th; 

AT  • | | VTOP | I  •)' ; 


*■  l); 

15)  THEN  T  =  'F« ; 

c; 
f»; 
E(M); 

E(M  + 
SUBSTR 

L  ( M  ) ; 


l)  -  l; 

(OPCODES, L,K) ; 


>  o; 

Ti'i  • 

+  i; 


ll 


J; 

VTABf  J 
LENGTH! 


I |  VTAB 
VTAB(L)II')  • 


(D; 


); 

TBUFF) 


OUTPUT  =  _TBU 
It-  PUNCH  I  OG 
OUTPUU2)  = 
TBUFF  =  T; 


*■    LENGTH(T)  >  N  THEN 
ff; 

THEN 
TBUFF; 


END 
CAL 
CAL 
END  W_V 


END; 

ELSE  T3UFF  =  TBUFF  |  |  T; 


L  W  CL 
L  LINE 
AL; 


EAR; 
_FEED(2); 


OUTPUTS 
BLOCK  A 
ROUTINE 


W_STATE 
DEC 

CAL 
ALT 
IF 
M=T 
I  = 
K  = 
I  = 
TBU 
OUT 
IF 
OUT 
CB  = 


:  PROC 

LARE  ( 

( 

L  LINE 

ST  =  0 

CB  =  0 

_WIDTH 

CSFCO 

SHR(  I 

I  £  " 

FF  =  • 

PUT  = 

PUNCHT 

PUT(2) 

STATES 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

EDURE  (CB, 
It  K,  J,  M, 
T,  WHERE)  C 
_FEEO(l); 


<><><><><><><><><><><><><><><><><>*/ 

*/ 

W  STATE  */ 

THE  STATE  CORRESPONDING  TO        */ 

T  ADDRESS  CB  IN  CSFCODE.  */ 

S  CALLED:  */ 

LINE  FEEO  */ 

W_CLEAR  */ 

*/ 
<><><><>< ><><><><><><><><><><><><>*/ 
WHERE) ; 

CB.  X,  TEMP,  NUMOP)  FIXED, 
HARACTERJ 


THEN  RETURN; 
+  N  COLS*C  WIDTH; 
DETCB); 
,16)  ; 
FFFF"; 

i  • 

•     •'     I  I    WHERE     I  I     '    B 
OG    THEN 
=    ■     '  I  I  WHERE     I  I  '    B 

<  ml ; 


I  =   I   +2; 

J    =    STATESCIl; 


LOCKS    ■     II    K    ||     *     IS:    "3 

LOCKS    • | I    K    ||     •     IS:     •{ 

/*  */ 

/*    THERE  ARE    TWO    EMPTY    SPACES*/ 
/*    AT    THE    BEGINNING    OF    THE          */ 

/*    STATE  VECTOR.                                      */ 

/*  */ 


/*  */ 

/*  IS  AN  OPTIMIZED  STATE      */ 

/*  PRESENT  */ 

/*  *' 
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IF    J    »    0    THEN 


oo; 


end; 
ELSE 


output  =  '  (null)'; 
if  punchtog  then 
0utput(2)  =  ■  (null)'; 

do; 


DO 


WHILE    J    >   o; 
J   =   J   -   1; 
1=1+1; 

K    =    STATES! I )     £    "7FFF"; 

X    =    AOORESS(K); 

IF    SHRU,    15)     THEN 


do; 

T    =    •    E( »; 

X    =    X    £    "7FFF"; 

END;    ELSE 

IF    X    =    0    THEN 


00; 


T    = 


C( 


TEMP    =    ADDNAM(K) ; 

NUHOP    =    ADDTYPE(K)     &    "FF"; 


END 


NUMOP  -  GP  DEGLINUM0P1 
DO  WHILE  NUMOP  >  0; 

NUMOP  -=  NUMOP  -  l; 

X  =  VTAB(TEMP) ; 

T  =  T  1 1  x  II  «:«; 

TEMP  =  TEMP  -  l; 
END; 

X  =  VTAB(TEMP); 
;  ELSE 


i; 


0  THEN 

II  '*»•; 


T  =  •  AC; 
IF  X  = 
T  =  T 

ELSE 

T  =  T  ||  X  | I  «,•; 

X  =  ADOCON(K)  &  "7FFF"; 
IF  X  =  0  THEN 

T  =  T  ||  •*,«; 

ELSE 

DO; 

X  =  CONVAL(X); 

T  =  T  ll  X  ||  •,'; 

END; 

X  =  ADOVAL(K); 

IF  X  =  0  THEN 

T  =  T  ||  «*)  «  ; 

ELSE  T  =  T  II  X 

if  length(tbuff) 
do; 

output  =  tbuff; 

if  punchtog  then 

0UTPUTI2)  =  TBUFF; 
TBUFF  =  '  «  |  |  T; 

end; 

ELSE  TBUFF  =  TBUFF  | |  T; 
END; 
END; 

CALL  W  CLEAR; 
CALL  LTnE_FEED(1); 
END  W  state; 


I  •)  '; 

*  LENGTH1T)  >  M 


/* 
/* 
/* 


/* 


/* 
/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


THEN 


NO.. .  INDICATE  EMPTY 


/*  YES. . .PROCESS  EACH 
/*  EQUIVALENCE  CLASS 


*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 


/*  EXEC  STACK  ELEMENT  */ 

/*  E  (  X,  Y,  I )                        */ 

/*  X  =  RELATIVE  LOCATION   */ 

/*  FROM  THE  TOP  OF     */ 

/*  EXEC  STACK          */ 

/*  Y  =  IF  RESULT  IS        */ 

/*  PROPAGATED  CONSTANT*/ 

/*  VALUE  IS  CLASS  ft          */ 

/*  Z  =  CLASS  NUMBER  OF  THE*/ 

/*  COMPUTATION  RESULT  */ 


/*  VALUE  TABLE  ENTRY  */ 

/*  INVOLVING  AT  LEAST  ONE  */ 

/*  COMPUTATION.  */ 

/*       C(  X,Y,Z  )  */ 


OPERANDS  */ 

Y  =  VALUES  OF  THE       */ 

PROPAGATED  CONSTANT*/ 

IF  ONE  EXISTS  */ 
Z  =  CLASS  NUMBER  OF     */ 

COMPUTATION  RESULT  */ 


ADDRESS  TABLE 
A  (  X,  Y 
X  =  SIMPLE 
Y  =  SAME  AS 
Z  =  SAME  AS 


ENTRY 
r     Z    ) 

ID    NUMBER 
ABOVE 
ABOVE 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


'Of, 


/* 

/*  PRI 

/*  PRINTS  THE  OUTP 
/*  DATA  ON  THE  ADD 
/*  MANNER  AS  W_STA 
/*    POOL. 

/*  ROUTINES  CALLED 
/*  ER* 

/*  W    C 

/*  lTn 


*/ 

NT_OUTPUT  POOL 
UT  POOL  FROM  THE  CURRENT 
RESS  STACK  IN  THE  SAME 
TE  PRINTS  THE  CURRENT 


OR 

LEAR 
E  FEED 


PRINT    OUTPUT    POOL:     PROCEDURE; 

DECLARE    TCURADR,     [DENTOPf     ID 
TEMPA)     FIXEDi 
MAXIDENTS    LI TERALLY 
IDENT(MAXIDENTS)    FIX 
T    CHARACTER, 
(PRESENT,     EXPRES,    FOU 
MAXWIDTH    =    T_WIUTH    *    N_COLS 
CURADR    =    ADDLOC; 
TBUFF    =     «    -»  ; 

OUTPUT     POOL    FROM 

THEN 

•       OUTPUT    POOL    F 

1     THEN 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


DATA,    NUMOP,     TEMP,    MAXWIDTH,     I, 

'50'  , 
ED, 


OUTPUT 

IF    PUNCHTOG 

0UTPUT12)     = 

IF    CURADR    < 

DO; 

OUTPUT 

IF    PUNCHTOG 

0UTPUT(2)     = 

return; 
end; 

IDENTOP    =     l; 
EXPRES    =    FALSE; 
DO    WHILE    CURADR    > 
FOUND    =    FALSE 
DATA,     ID    =    ADDRESSCCURAD 
IF    SHRUD,     15)     THEN 
DO; 

FOUND    =    TRUE; 

T    =    »    EC; 

DATA    =    DATA    I    "7FFFrt 

END; 

if  id  =  0  |  expres  then 

do; 

found  =  true; 

if  expres  then 

TEMP  =  VTA8( TEMPA)  f 


ND)  BIT(l); 
*  C_WIDTH; 


BLOCK*  »  |  |BLK0|  [  'IS:  • ; 
ROM  6L0CK#  '|1BLK#||  •  IS:  •; 


(MULL)' ; 
THEN 
1  (NULL)' 


o; 


*); 


/*  EXEC  STACK  ENTRY 


*/ 


END 

do; 


ELSE 

TEMP  =  ADONA 
TEMPA  =  TEMP 
IF  VTAB1TEMP 
EXPRES  =  TRU 
ELSE 

EXPRES  =  FAL 
j  =  i    c  (  '  ' 
NUMOP  =  ADDT 
NUMOP  =  OP_D 
DO  WHILE  NUM 
NUMOP  = 
DATA  =  V 
T  =  T  || 
TEMP  =  T 
END; 

DATA  =  VTA8< 
I  ELSE 

PRESENT  =  FA 

I  =  IDENTOP 

DO  WHILE  (I 
IF  IDENT 
PRESENT 
1  =  1- 

END; 

IF  -^PRESENT 

DO; 

IDENT( ID 
IDENTOP 
IF  IDENT 
DO; 

CALL 
IDEN 
END; 
FOUND  = 
T  =  '  A( 

END; 


MtCURAD* 

-  l; 

A)  -.=  0 

E; 
SE;  ■ 

YPEJCURA 

EGLINUMO 

cp  >  o; 

NUMOP  - 
TAB(TEMP 
DATA  || 
EMP  +  l; 

TEMP); 


LSE; 

-  i; 

>  0)  £  ( 
(I  )  =  DA 

=  TRUE; 

l; 

THEN 

ENTOP)  = 
=  IDENTO 
OP  >  MAX 

ERRORC 
TOP  =  ID 

TRUE; 


2; 

)  +  2; 

THEN 


DR)  &  "FF"; 
P)  -  l; 

i; 
) ; 


/* 

/*  EXPRESSION  ENTRY 


*/ 
*/ 
*/ 


/*    ADDRESS    STACK    ENTRY 


*/ 


-    PRESENT); 
TA    THEN 


DATA; 

p   +  l; 

IDENTS    THEN 


IDENTIFIER    TABLE    OVERFLOW',     I); 
ENTOP    -    i; 
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11X1 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

11  57 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1176 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

tNu; 

IF  DATA  =  0  THEN 

T  =  T  | |  •*,•; 

ELSE 


DATA  =  ADDCON(CURADR)  £  "7FFF"; 

IF  DATA  a  0  THEN 

T  =  T  N  •*,•; 

ELSE 

DO; 

DATA  =  CONVAL(DATA) 

T    =    T     II     DATA    II 
END; 


/*  */ 

/*    GET    THE    PROPAGATED   CONSTAN*/ 


/*    VALUE    NUMBER 
/* 


•,»; 


DATA  =  ADDVAL(CURADR) ; 
IF  DATA  =  0  THEN 

T  =  T  ||  •*)  •  ; 

ELSE 

T  =  T  |  |  DATA  | !  ')  •; 

if  found  then 
do; 


/* 

/*  GET  THE  CURRENT  VALUE  # 
/* 


*/ 
*/ 
*/ 


/* 


END 

CAL 

CAL 

END  PR  I 


/*  NOW  BUILD  THE  PRINT  LINE 
/* 

if  length(tbuff)  *•  length( t)  >  maxwidth  them 
do; 

output  =  tbuff; 

if  punch  tog  then 

0utputi2)  =  tbuff; 

TBUFF  =  •  '  I  I  T; 
END;  ELSE 
TBUFF  =  TBUFF  | |  T; 

end; 

IF  -i  EXPRES  THEN 

/* 

/*  ADVANCE  TO  NEXT  SUBCLASS 

/* 
CURADR  =  CURADR  -  1; 


*/ 


*/ 
*/ 


L  W_C 

L  LIN 
NTGU 


END 


ALL: 
CAL 
OUT 
IF 
OUT 
IF 
IF 
IF 
IF 
IF 
IF 
W_A 


PRCCE 

L    LIN 

PUT 

PUNCH 

PUTI2 

ALTST 

ALTCN 

ALTAD 

ALTVL 

ALTCT 

ALTEX 

ll; 


LEAR; 

E_FEE 

TPUT 
/** 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/*< 

DURE; 

E_FEE 
=    i 

TOG    T 
)     =    ' 

THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


D(l); 

pool; 

*/ 

W  ALL  */ 

OUTPUTS  THE  VARIOUS  TABLES  AND  STACKS  */ 

DEPENDING  ON  WHICH  FLAGS  ARE  SET.  */ 

ROUTINES  CALLED:                   •  */ 

W_EXEC  */ 

W_ADD  */ 

W_CONS  */ 

W_VAL  */ 

W_CONT  */ 

W  STATE  */ 

LTME_FEED  */ 

*/ 


DI2J; 

***T 

HEN 
>i=**T 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


ABLE 


0  U  M  P***  AT  LOCATION  = 


ABLE    0  U  M  P***  AT  LOCATION  = 

W  STATE(CURBLOCK,  •  INPUT  POOL  FOR 

W_CONS; 

W_ADO  ; 

W_VAL  ; 

W_CONT; 

w  exec; 


•  I |m_control; 

•  I |m_control; 
') ; 


/*<><><><><><><><><><><><><><><><><><><><><>*/ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


DECODE 

formats  for  output  a 


*/ 
*/ 

FIXED' 32  BIT  VALUE  */ 

OF  X  WITH  L  AS  THE  OUTPUT  LINE  NUMBER  */ 

AND  IND  AS  THE  THIRD  ENTRY  IN  THE  */ 

FORMATTED  STRING.   X  IS  THE  32  BIT  */ 

INTERMEDIATE  LANGUAGE  WORD  FROM  CSFCODE  */ 


TO  FORMAT. 

ROUTINES  CALLED: 
PAD 
HEX 


*/ 
*/ 
*/ 
*/ 
*/ 


/*<><><><><><><><><><><><><><><><><><><><><>*/ 
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VtLUUtZ     KKULtUUKt  I  L,X,  1NDI  5 

DECLARE  (IfJfXiLJ  FIXED,  <T,IND)  CHARACTER; 

DECLARE  (OFF.TYP  ,CON,F)  FIXED; 

OFF  =  SHR(X,  2h) ; 

TYP  =  SHR(X,  16)  1  "FF"; 

con  =  shr(x,  15)  e,  »i"; 

F  =  X  L    "7FFF": 

T  =  ■  • I |  IND  II  l: 

T  =  PAD  T,  6,R  IGHT) ; 

T  =  T  |   •   '|l  OFF; 

T  =  PAD( T,  12, RIGHT); 

T  =  T  I )•  !•; 

I  =  OPRANGE(TYP) ; 

J  =  OPRANGEUYP  f  1)  -  I; 

T  =  T  II  SUBSTR(OPCODES,  I,  J); 

T  =  PAD( T,24, RIGHT) 


IF  CON  THEN  T  =  T  I |  • |C| ' ; 
ELSE  T  =  T  | |  «|  I ': 


EL. 

T  =  T  I 

T  =  PAD  T, 33, RIGHT); 

T  =  T 


T  = 

T  = 


f; 
HEX(X) 


J. 


IF  OPTIM_TYPE(L)  -*  =  0  THEN 
DO; 

J  =  OPTIM  TYPE(L) ; 

T  =  T  | |  TYPOPTIM(J) ; 
END; 

OUTPUT=T; 
IF  PUNCHTOG  THEN 
OUTPUT(2)  =  T; 
END  DECODE; 

/*  •  */ 

/*  FORMATCODEDUMP  */ 

/*  PRINTS  THE  INCOMING  OATA  AS:  */ 


/* 
/* 
/* 
/* 


BIT 


8 
OFFSET 


8 

OPCODE 


*/ 
15  */ 
ADR(HEX)*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


OPTIM 


1 

CONS 
INDICATOR 
/*  ROUTINES  CALLED: 
/*  LINE_FEEO 

/*  DECODE 

/* 

/*<><><><>0<><>  <><><><><>  <><><><><><><><><>*/ 
FORMATCODEDUMP:  PROCEDURE; 
DECLARE  I  FIXED; 
CALL  LINE_FEED( 1)  ; 

OUTPUT  =  •   ****   FORMATTED  INTERMEDIATE  CODE  DUMP   ****•; 

OUTPUT  =  •   LOC  OFF     OP  CODE     CNS  ADR     RAH  CODE 

IZATICN' ; 

OUTPUT  =  •       SET  /ETC 

TYPE' ; 

OUTPUT  =  I****************************************************************** 

IF  PUNCHTOG  THEN 
DO; 

OUTPUTI2)  =  '   ****   FORMATTED  INTERMEDIATE  CODE  DUMP   ****•; 
OUTPUTI2)  =  •   LOC  OFF     OP  CODE     CNS  ADR     RAW  CODE      OPTIMIZATIO 
N«  ; 

OUTPUT<2)  =  '       SET  /ETC  TYPE'; 

OUTPUT (2)  =  I*********************************************************** 
*********** i ; 

END; 

DO    I     =    0    TO    CODELOC? 

CALL    DECOOE(     I,     CSFCOOE(I),     •     •); 

END; 

OUTPUT    =     •*#************#*****#**♦***#*******************#♦**♦#*#**♦***♦**## 
****  I  ; 

IF    PUNCHTOG    THEN 

OUTPUT (2 )=****************************************************************** 
*****  I  ; 

CALL  LINE_FEED(2) ; 
END  FORMATCODEDUMP; 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
/*  */ 

/*  I_CONVERT  */ 

/*    CONVERTS    AN     INTEGER    CHARACTER    STRING  */ 

/*    REPRESENTATION     INTO    ITS    BINARY    EQUIVALENT*/ 

/*     RETURNS    THE    FIXED    FORMAT    BINARY  */ 

/*    REPRESENTATION.  */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
I_CONVERT:  PROCEDURE  (S)  FIXED; 

OECLARE  S  CHARACTER,  (  I  ,  J , K)  FIXED; 

K  =  o; 

I  =  LENGTH(S); 
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"FO"; 


C.CGNVERT 


/*  FORCE  NEW  STRING 


*/ 


J);  ELSE 


J); 


uu   j  *  u  fu  i  -  1; 

K  =  K  *  10  ♦•  BYTE(S,  J) 

END; 

RETURN  K; 
END  [..CONVERT; 

/*  */ 

/*               C  CONVERT  */ 

/*  PUTS  THE  INCOMING  CONSTANT  HEX  CHAR  */ 

/*  VALUES  INTO  STRING  FORMAT  AND  RETURNS  */ 

/*  THE  HEX  STRING.  */ 

/*  */ 
/*<><><><><><><><><><><><><><><><><><><><><>*/ 
PROCEDURES, L)  CHARACTER; 

OECLARE  T  CHARACTER,  (I,  J,  K,  U  FIXED; 

7  =  »  •»  • 

t  =  T  1 1  »  " ; 
I  =  2; 

DO  WHILE  I  <  K; 

J  =  K  -  I ; 

IF  J  <  16  THEN 

T  =  T  I   SUBSTRl BLANKS,  0, 

T  =  T  I   BLANKS; 

I  =  I  +  16; 

END; 

I=ADDR(CSFCODE(L) ) ; 

L  =  SHR(AD0R(T  )  ,  2); 

L  =  COREWORD(L)  L    "FFFFFF"; 

00  J  =  0  TO  K  -  l; 

C0RE3YTEIL  +  J )  =  COREBYTE  (I  *■ 
END; 

RETURN  SUBSTR(T,0,K) ; 
END  C.CONVERT; 

/*  */ 

/*                  DUMP  BLOCKS  */ 

/*  DUMPS  ALL  BLOCK  HEADERS  STORED  IN         */ 

/*  CSF  CODE  UP  TO  BLKLOC.  */ 

/*  ROUTINES  CALLED:  */ 

/*              LINE_FEED  */ 

/*  */ 
/*<><><><><><><><><><><><><><><><><><><><><>*/ 
DUMP  BLOCKS:  PROCEDURE; 

^cri£riC/iii/i}CTYCr>« 

DECLARE    BLANKS    CHARACTER     INITIAL!'  •); 

I=C0DEL0C+1; 

DO    WHILE! I     <    BLKLOC) ; 

J  =  CSFCODEI I) ; 

OUTPUT=BLANKS| I • BASIC  BLOCK  »  '  |  |  SHR(  J ,  16  )  ; 

IF  PUNCHTOG  THEN 

0UTPUT(2)  =  BLANKSI  I  'BASIC  BLOCK  # » |  I SHR( J ,  16 ) ; 

J  =  CSFCODt (  l  +  l ) : 

OUTPUT =BLANKS|  j  BLANKSI  I  'BEGINNING    AT     •  |  |  S  HR  (  J  ,  1 6  )  |  |  •  ,    ENDING    AT     '|| 
(  JC'FFFF")  ; 

IF    PUNCHTOG    ThEN 

0UTPUT(2)     =    BLANKSI  IBLANKSI  I  •BEGINNING    AT     •  | I SHR ( J , 1 6)  I  | • ,     ENDING    AT     '|| 
(  JC'FFFF") ; 

J=CSFC0D£(  H-2)  ; 

OUTPUT=BLANKSl  IBLANKS1  I 'BLOCK  TRAVERSED  •  llJll*  TIMES';  . 

IF  PUNCHTOG  THEN 

0UTPUT(2)  =  BLANKSI I BLANKSf I 'BLOCK  TRAVERSED  'llJll'  TIMES1; 

J  =  CSFCODEI  I  +  3)  ; 

OUTPUT  =  BLANKS  II  BLANKS  II  J  ||'  REFERENCES:", 

IF  PUNCHTOG  THEN 

0UTPUT12)  =  BLANKS  II  BLANKS  II  J  ||'  REFERENCES:'; 

I=I«-BLKSIZE; 

DO  K  =  1  TO  J; 

L  =  CSFCODEI  I) ; 

1=1+1; 

OUTPUT=BLANKS| I BLANKSI I • 
IF  PUNCHTOG  THEN 
0UTPUTI2)  =  BLANKSI | BLANKS 

END; 
END; 

CALL  LINE_FEED(l); 
END  OUMP_BLOCKS; 

/*  */ 

/*  DUMP  ALL  */ 

/*  DUMPS  ALL  TABLES  AND  STACKS  */ 

/*  ROUTINES  CALLED:  */ 

/*  W  ALL  */ 

/*  FDRMATCODEDUMP  */ 

/*  DUMP  BLOCKS  */ 

/*  LINE  FEED  */ 

/*  */ 

DUMP  ALL:  PROCEDURE; 


•ML; 

I'   'Ml; 
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UUIKUI  = 

OUTPUT  = 

IF  PUNCHT 
DO; 

OUTPU 
OUTPU 

ION  =  « I  I  M_C 
END: 
ALTST  = 
ALTEX  = 
ALTAO  = 
ALTCN  = 
ALTVL  = 
ALTCT  = 
CALL  W_AL 
CALL  FORM 
CALL  DUMP 
OUTPUT  = 
IF  PUNCHT 
OUTPUT( 2) 
CALL  LINE 

END    DUMP_ALL; 


•     ***L    UMfLtrt  IrtOL 

•   dump  requested  from  block  num 
m_control; 

OG  THEN 


t    L)  U  M  ymvv  i 

BER  =  •  1 1 BLK# 1 1 •  AT  LOCATION  =  'II 


T<2)  =  '  ***C 
T(2)  =  ■  DUMP 
ONTROl; 


0  M  P  L  E  T  E 

REQUESTED  FROM 


ABLE    D  U  M  P***' ; 
OCK  NUMBER  =  •  I  I  BLK#  I |  •  AT  LOCAT 


l; 

atcodedump; 

_BLOCKS; 

•     ***E    N    D  OF 

OG    THEN 

=•    **#E    NO         OF         COMPL 
_FEED(1); 


COMPLETE    TABLE    DUM  P*** » ; 

ETE    TABLE    DUM  P***« ; 


CERROR:  PROCE 
DECLARE  M 
CALL  ERRO 
CALL  DUMP 

END  CERROR; 


/* 

/*  CERROR 

/*  OUTPUTS  COMPILER  ERROR  NUMBER  AND  THEN 
/*  DUMPS  ALL  TABLES. 
/*  ROUTINES  CALLED: 
/*  ERROR 

/*  DUMP  ALL 

/* 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
DURE  (M); 

character? 

r(' (compiler  error)  •  ii  m,  10); 
_all; 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


/* 
/* 

/* 
/* 

/* 


*/ 


SEARCHES 
WITH    BI T 

pITIM! 'A 


IF  AN  OP 
LOWER  15 
VTAB  FOR 
THE  FOLL 
OPTIMIZA 
lAli 


AI 


THE 
AS: 


OUTPUT  OPTIMI 

DECLARE     ( 

( 

F 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

ZATION:    PROC 
It     J  ,     K,     D. 
I,     OPTYP)     CH 
OUND    BIT( 1) ; 


TYPE 

0 
1 
2 
3 


OUTPU 

CSFCO 

16    SE 

t  t  n\i    d 

tim'iza 

BITS 

THE    0 

OWING 

TION    A 

•  •  •  •  •  i 

X 
...'AN 


B    = 

C    = 

OF    OP 


T_OPTI 

DE  FOR 
T  -  IN 
nc  c  j  gi 

TION  I 
OF  COD 
P  T  I  M I  Z 
FORMAT 
T  X 

AN  I  B 

=  LOCA 

=  CLAS 

CORR 

OPER 

CLAS 

I  DEN 

THAT 

=  IDEN 

CONS 

TIMIZA 


MIZATIO 

ANY  CO 
0 1  C  A  T  E  S 
E  -  A  N  0 
S  INDIC 

E  WORD 
AT  ION. 


N 

DE  WOR 

AN 

(HIT  P(J 

a  f  f  n , 

POINT 
OJTPU 


TS  IT 

THE 
TO 
T  IS 


,  C) 

TICN  IN 
S  NUMBE 
ESPONDI 
AND 

S  NUMBE 
TICAL  E 
HAS  OC 
T  ICAL  C 
TANT  TA 
TION  IS 


CODE 
RS 
NG  TO 


EACH 


,ION 
EARL  I 
IT  IN 


R  OF  A 
XPRESS 
CURED 
ONSTAN 
BLE 
THEN  OUTPUT 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

IN  */ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

ER  */ 
*/ 


THEN  AN 
BLOCK  IS 
ALL  BLOC 
ROUTINES 


NONE 
SIMP 
CUNS 
COMM 
ELIM 

=  COMMO 
LINK 

OVERVIE 
PRINTE 

ks  pro: 

CALLED 
LIN 
FOR 

w_s 

PAD 


EDURE; 

E)  FIXEDt 

ARACTER, 


LIFICATION 
TANT  PROPAGA 
ON  SUBEXPRES 
I  NATION 
N  SUBEXPRESS 
S  TO  A  CONST 
W  OF  THE  PAS 
D  ALONG  WITH 
ESSED. 

E_FEEO 

MATCODEDUMP 

TATE 


TION 
SION 

ION  TH 

ANT  PR 

SES  PE 

A  TOT 


AT 

OPAGA 

R 

AL  FO 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

TIN*/ 
*/ 

R 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


/* 


CALL  LINE_FEED(2); 


*/ 

/*  OUTPUT  THE  CONSTANT  TABLE  */ 
/*  REFINEMENT  TABLE  */ 

/*  AND  THE  CODE  FILE,  CLASS   */ 
/*  */ 


230 


UUI KUI 
OUTPUT  * 


=    • 


307P0T  =    rHhit»HltHHHItHHItlH!ltltattHUHItltH 

&##### ##»#»#### #»*  ; 

OUTPUT  =    • 

i  • 

IF    PUNCHTOG    THEN 
DO; 

OUTPUT(2)     =    • 

OUTPUT  (2)     =    • 


MNAL     UPIIMI^AIIUN     KtbULIi*; 

MM1HHt1HHt#»1HHHHHHHHW1HHHHt###tHHHWIHH 


FINAL  OPTIMIZATION  RESULTS' 


OUTpuTT/2  7    =    THft4HHUI}#iti}ttUUHilHtinti#lttitt}tUltttl}ttiittttlti!ltitttitHtltt)tnfittttfti}l}tfti4HtttHtUit* 
H»tftfHUH44tttt»tatr^»H^HtH»,  i 

OUTPUT (2)     =     ' 


EH57 

CALL    LINE_FEED(l); 

FOUND    =    FALSE; 

DO    I     =    tfPARMS     TO    CODELOC; 

J    =    CSFCODE( I) ; 

K    =    SHKlJ,     16)     L    "FF"; 

D=OP_TYPE(K) ; 


IF     (K>PASS)£<D-*=LOAD)     THEN 

DO; 

D    =    OP    DEGL(K); 

K    =    J    I    "7FFF"; 

J    =    SHR(Jtl5)    £    "l": 

J    =    J    £    (OPTIM_TYPE(I )     -•=    "0") 


/* 

/* 
/* 
/* 
/* 


/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 

IF    (K^=0)U    THEM 

DO; 

FOUND    -   TRUE; 

J   =   D; 

OUTPUT=«     OPTIMIZATION    AT    • I | X  S 

IF    PUNCHTOG    THEN 

OUTPUTI2)     =    •     OPTIMIZATION    AT    '|Ui 

T=«  (»: 

DO    WHILE    (D    >    0); 

0    =    D    -    l; 

T    =     T     | |     VTA3IK    -    D) ; 

IF    D    >    0    THEN    T=T|  IS". 
END; 

T    =    T    ||     •    •; 
D    =    VTABIK    -    J); 
IF    D    =    0    THEN    T   =    T     I  |     '*,•  ; 
ELSE    T    =    T     ||     D     ||      ■,'; 
D=VTAB(K-J-1) ; 

IF    0    =    0    THEN    T    =     T     | |     •*)  •; 
ELSE    T=T||D||      •)•; 
T    =       PADIT,     30,     RIGHT); 
E    =    OPTIM    TYPE! I ) ; 
OPTYP    =    TYPOPTIM(E) ; 
T    =    T     | |     OPTYP; 
OUTPUT=T; 
IF    PUNCHTOG    THEN 
0UTPUK2)     =    T; 

call  line_feed( 1) ; 
end; 
end; 

IF  OPTIM_TYPE( I )  =  "0"  THEN 
CSFCODE(I)  =  CSFCODE(I)  &    "FFFF7FFF"; 
END; 

IF  -FOUND  THEN 
DO; 

OUTPUT  =  •  ***N0  OPTIMIZATIONS  DET 

IF  PUNCHTOG  THEN 

CUTPUT(2>  =  •  ***N0  OPTIMIZATIONS 
END; 
CALL  FORMATCODEDUMP; 


IF  OPCODE  IS  NOT  A 
OECLARAT  ION  OR  A  LOAD 
TEST  FOR  AN  OPTIMIZATION 


*/ 
*/ 
*/ 
*/ 
*/ 


*/ 

IF  BIT  16  IS  SET,  AN  */ 
OPTIMIZATION  TYPE  IS  */ 
PRESENT  AND  AN  ADDRESS  FOR*/ 
THE  OPTIMIZATION  EXPRESSING/ 
IS  PRESENT  — WE  HAVE  AN  */ 
OPTIMIZATION.  */ 

*/ 


ECTED***« ; 
DETECTED***1 ; 

/* 


CALL    LINETFEED(2); 


/*    OUTPUT    THE    MINIMAL    STATE 

/*    AT    EACH    BLOCK 

/* 


*/ 
*/ 
*/ 
*/ 
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UUI PU I  =  • 

IF  PUNCHTOG  THEN 
0UTPUTI2)  =  • 


OU 

f  =  1. 

DO  WHILE  I  <=  BLKCNT ; 
CALL  LINE  FEEO(l); 

J  =  blkpnTi I ) ; 

CALL  W_STATE(J, 
1=1*15 

eno; 


END 


t-  1  NAL  UPI  IHliAl  1 

FINAL  OPTIMIZ 


UN  PUUL  hUK  tALH  BLUCK  15>:'; 
ATION  POOL  FOR  EACH  BLOCK  IS:'; 


•  FINAL  POOL  FOR  ' ) ; 


CALL  LINE_FEED(2); 

CALL  DUMP_BLOCKS; 

OUTPUT  =  '  BLOCK  SUMMARY  DATA 

IF  PUNCHTOG  THEN 

OUTPUTI2)  =  '  BLOCK  SUMMARY  D 

CALL  LINE  FEED(l); 

OUTPUT  =  T  BLOCK  NUMBER 

IF  PUNCHTOG  THEN 

OUTPUTI2)  =  '  3LOCK  NUMBER 

CALL  LINE_FEEO(l); 

I  =  l; 

0  =  0; 

DO  WHILE  I  <=  BLKCNT; 


:•; 

ATA:' 


/*  *t 

/*  OUTPUT  OVERVIEW  OF  BLOCKS  *, 

/*  PROCESSED.  *t 

/*  *, 


NUMBER  OF  PASSES* ; 

NUMBER  OF  PASSES1; 


T 

-  i  i  • 

t 

K 

=BLKPNT< I ); 

J 

=  CSFCODE(K) ; 

J 

=  SHR(J,  16)  £  "FFFF"; 

T 

=   PADIT,  6,  RIGHT); 

T 

=  T  II  j; 

T 

=  PADIT,  40,  R  IGHT); 

K 

=  K  +  2  ; 

J 

=  CSFCODE(K); 

D 

=  D  +  j; 

OUTPUT  =  •     J  ; 

IF 

PUNCHTOG  THEN 

OUTPUT12)  =  T  |  |  J  ; 

I 

=  1  +  13 

END 

i 

CALL  LINE_FEED(2) 

T  = 

: 

TOTAL  NUMBER  OF  BLOCKS 

PROCESSED  WAS 

OUTPUT 

=  t; 

IF 

PUNCHTOG  THEN 

QUTPUT(2)  =  T; 

T  = 

t 

USING  THE  •; 

T  = 

T 

IT  SELECT  METHODISELECT 

FLAG); 

T  = 

T 

ll  •  BLOCR  SELECTION  ALGORITHM.'; 

1 1  u; 


OUTPUT  =  T; 

IF  PUNCHTOG  THEN 

0UTPUT<2)  =  T; 

OUTPUT_0PTIMIZATION; 

/* 

GET_CON 
ADVANCES  THE  CONSTANT 
CHECKS  TO  SEE  IF  IT  H 
LIMIT. 
ROUTINES  CALLED: 

ERRO 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


POINTER  AND  THEN 
AS  GONE  BEYOND  ITS 


GET. 


PROCEDURE ■ 


CON: 

CGNL0C=C0NLOCU 

IF    CONLOOMAXCON    THEN 

DO; 

CALL    ERROR!' 
CONLOC    =    l; 

END; 


R 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


CONSTANT    TABLE    OVERFLOW',     I); 


END  GETCONI 


/*<><><><><><><><><><><><><><><><><><><><>< 
/* 

/*  ENTERCONS 

/*  PUT  DATA  INTO  THE  CON 
/*  CONLOC.   CONLOC  IS  FI 
/*  THEN  DATA  IS,T)  IS  PU 
/*  ENTRY  AS  FOLLOWS: 
/*  CONSYM  =  S  - 

/*  CONTYPE  =  T  - 

/*  COMNT  =  0 

/*  ROUTINES  CALLED: 
/*  GET. 

/* 


STANT  TABLES  BY 
RST  UPDATED  AND 
T  INTO  NEW  CONSTANT 

STRING 
FIXED 


/*<><><><><><><><>< 

ENTERCONS:  PROCEDURE! S , T ) ; 

DECLARE  S  CHARACTER,  T  FIXED; 


CON 


>*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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CALL    GET    CON; 
CONINT(CONLOC) 


o; 


CQNrYPE(CONLGC)    =    T; 
END    tNTERCONS; 

/* 
/* 

/*  PUTS  DA 

/* 

/* 

/* 

/*  THIS  IS 
/*  EXCEPT 
/*  AND  THE 
/*  TO  X. 
/*  ROUTINE 
/* 
/* 

ENTERCONI:  PROCEDURE  (X, 

DECLARE  (X,T)  FIXED; 

ALTCN=l; 

CALL    GET_CON; 

CONINT(CGNLOC)     =    X; 

CONTYPE(CONLOC)  =  T; 

CONSYM(CONLOC)  =  X; 
END  ENTERCONI; 

/* 
/* 

/*  RETURNS 

/*  AND  COM 

/* 

/*        F 

/* 

GETVAL#:    PROCEDURE(I)    FI 
DECLARE     I     FIXED; 
IF     I=FORMAL    THEN    RET 
VALUE_NUM_CNTR    =    VAL 
I     =    VALUc_NUrl_CNfR; 
RETURN     I; 

END    GETVALtf; 

/* 
/* 

/*    BUILDS 

/*    INPUT    D 

/*    ROUTINE 

/* 

/* 

/* 

/* 

BUILD    CONS    TABLE:     PROCED 
OECLARE"    (I  t  JtKiTtLfA 

J=CCDELOC+2; 


*/ 


ENTERCONI 
TA  INTO  CONSTANT  TABLES; 

CONINT  =  X  -  FIXED 

CONTYPE  =  T  -  FIXED 

CONSYM  =  X  -  FIXED 

BASICALLY  THE  SAME  AS  ENTERCON 
A  FIXED  INTEGER  ENTRY  FOR  SYMBO 

INTERNAL  REPRESENTATION  IS  SET 

S  CALLED: 

GET_CON 

T); 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


*/ 

GETVAL8  */ 

VALUE  NUMBER.   CALLED  WITH  FORMAL*/ 

PU.  */ 

COMPU  =  RETURN  A  NEW  VALUE  #       */ 

ORMAL  =  RETURM  0  */ 

*/ 
<><><><><><><><><><><><><><><><><>*/ 
XED; 

URN  o; 
UE_NUM_CNTR  +  I; 


*/ 

BUILD  CONS.TABLE  */ 

THE  CONSTANT  TABLES  FROM  THE       */ 

ATA  IN  CSFCODE.  */ 

S  CALLED:  */ 

C  CONVERT  */ 

ESTERCONS  */ 

GETVALtf  */ 

*/ 

URE; 

}  FIXED,  Q  CHARACTER; 


DO  WHILE  J  <=  LASTCON; 
L  =  CSFCODE! J) ; 
T  =  SHRIL,  16)  d  "FF"; 
A  =  L  £  "FFFF"; 
L  =  SHRIL,  24) ; 
Q=C_CONVERT(L, J+l) ; 


/* 
/* 

/* 
/* 
/* 


PROCESS  FROM  LAST  OF 
CSFCODE  FILE  TO  END  OF 
INPUT  READ  AREA 


*/ 
*/ 
*/ 
*/ 
*/ 


END; 


CALL  ENTERCONS(Q 
CONADD(CONLOC)  = 
J=J*SHR(L*7,2) ; 


»   T); 

A; 


DO    I    =    1    TO   CONLOC; 

CONVALU)     =    GETVAL#(COMPU); 
END; 
END    BUILD.CONS    TABLE; 


/*  */ 

/*  ENTER  CONSTANT  INTO  TABLE  */ 
/*  */ 


/*  */ 

/*  ASSIGN  VALUE  #'S  TO  ALL    */ 

/*  CONSTANTS  */ 

/*  */ 
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REAOCODE 


/* 
/* 

/*  ROUTINE 
/*  CSFCOGT 
/*  WORDS  I 
/*  OF  EACH 
/*  COUNT  0 
/*  I S  USED 
/*  PROPtRL 
/*  ROUTINE 
/* 
/* 
/* 
/* 

PROCEDURE; 


<><><><><><><><><><><><> <><><><> 


READS  TH 

A  PRES 

S  ASSUMME 

RECORD  R 

F  THE  REC 

TO  INSUR 

Y  READ. 

S  CALLED: 

ERRO 

FORM 

FILE 


EAD  CODE 

E  INPUT  FILE  INTO 

ET  RECORD  S  IZE  OF  900 

0,  HOWEVER  THE  FIRST  WO 

EAD  CONTAINS  THE  WORD 

ORD  READ.   THIS  VALUE 

E  THAT  ALL  THE  DATA  IS 


ATCODEDUMP 


*/ 
*/ 
*/ 
*/ 
RD*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


DECLARE  (I,J,K)  FIXE 
CSFCOOt(0)=FILd(CSF_ 


d; 
file,0); 


CODELOC=CSFCODE(0) ; 
IF    CCDELOC    >    MAXCODE 

DO; 

CALL    ERROR    {•     PR 

RETURN; 
END; 

I     =    DISKWORDSi 
J   =    0; 


DO    WHILE     I     <=    CODELO 

J  =  J  +  l ; 

CSFCODEI  I  )=FII.E( 
I=I+DISKWORDS; 
END; 


I  =  CCDELOC  *■    i; 
J  =  J  f  I ; 

CSFCODEI  I)=FILE(CSr-_ 
LASTCON  =  I  +  CSFCOD 
1=1+  DISKWORDS; 


DO  WHILE  I  <=  LASTCO 

J  =  J  +  1 ; 

I=I+DISKWORDS; 

END; 

IF  TRACETCG  THEN 
CALL  FORMATCODEDUMP; 


VALUE_NUM_CNTR  =  COD 
DO  I  =  0  TO  CODELOC; 
OPTIM_TYPE( I)  = 
END; 
ENO  READ_CODE; 

/* 
/* 

/*  SEARCH 
/*  TABLES 
/*    NTFND 
/*    FOUND 
/* 

LOCKAOD:  PROCEDURE  (ADR) 
DECLARE  (ACR,  CURADR 
CURADR  =  ADDLOC; 
FNDADR  =  0; 
DO  WHILE  (CURADR  >  0 
IF  ADURESSICURAD 
CURADR  =  CURADR 

END; 

RETURN  FNDADR; 
END  LOOKADD; 


/*  READ  LENGTH  OF  INTERMED 

/*  LANGUAGE. 

/* 


/* 

/*  SET  #  OF  WORDS  READ 
/* 


*/ 

IAT*/ 

*/ 

*/ 


*/ 
*/ 
*/ 


THEN 
OGRAM  TOO  LARGE  TO  BE  PROCESSED' ,    4); 


c; 

CSF_FILE, J); 


FILE, J); 
Ed); 


n; 


/* 

/*  READ  900  WORD  RECORDS 
/* 


/* 

/*  INPUT  THE  CONSTANT  C0UN1 
/* 


/* 

/*  READ  900  WORD  RECORDS 
/* 


eloc; 
"0"; 


/* 

/* 
/* 
/* 
/* 


CLEAR    THE    OPTIMIZATION 
TYPE     TABLE    FOR    THE    SIZE 
OF    CODE    READ 


*/ 
*/ 
*/ 


*/ 
*/ 
*/ 


*/ 

*/ 
*/ 
*/ 
*/ 


<><><><><><><><><><><><><><><><><>*/ 

*/ 

LOOKAOD  •  */ 

FOR  AN  IDENTIFIER  IN  THE  ADDRESS   */ 

*/ 
...RETURN  0  */ 

...RETURN  THE  LOCATION  */ 

*/ 

fixed; 

,  FNDADR)  FIXED; 


)  £  (FNOADR  =0); 

R)  =  ADR  THEN  FNDADR  =  CURADR; 

-  i; 
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/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/* 

*/ 

/* 

ENTERADO 

*/ 

/* 

ENTERS  AN 

IOENT IFIER 

INTO 

THE 

ADORESS 

*/ 

/* 

TABLES. 

*/ 

/* 

ROUTINES 

CALLED: 

*/ 

/* 

ER*OR 

*/ 

/* 

*/ 

ENTERADD:  PROCEDURE( ADR) { 

DECLARE  ADR  F  IXED; 

ADDLOC  =  ADDLOC  *  I; 

ALTAO  =  l; 

IF  ADDLOC  >  ADDLOCR  THEN 

DO; 

CALL  ERROR( 'ADDRESS  TABLE  OVERFLOW, 
ADDLOC  =  l; 

END; 

ADORESSJ ADDLOC)  =  ADR; 
END  ENTERADO; 

/* 

LOOKCONS 
LOOKS  FOR  A  CHARACTER  STRIN 
IN  THE  CONSTANT  TABLES. 
RETURNS  0  IF  NOT  FOUND... 
RETURNS  THE  LOCATION  IF  FOU 


/* 
/* 
/* 
/* 
/* 
/* 


<><><><><><><>*/ 


i); 


*/ 
*/ 

G  AND  TYPE  */ 
*/ 
*/ 

ND....  */ 
*/ 


LOCKCONS:  PROCEDURE ( SYMS TRG,  TYP)  FIXED; 

DECLARE  SYMSTRG  CHARACTER,  (FNDADR,  TYP,  CURADR)  FIXED; 

CURAOR  =  CONLOC; 

FNDADR  =  0; 

DO    WHILE     (CURAOR    >    0)     £    (FNDADR    =    0): 

IF     (SYMSTRG    =    CONSYM(CURADR) )L     ( CONTYPE ( CURADR )     =    TYP)     THEN 
FNDADR    =    CURADR; 
CURADR    =    CURADR    -    1; 
END; 

RETURN    FNDADR; 
ENO    LOOKCONS; 

/* 


/* 
/* 
/* 
/* 
/* 
/* 


CHECKS 
THE    CO 
TRUE 
FALSE 


LOOKCONI 
FOR    A    CONSTANT    VALUE 
'iSTAMT    TA111  c« 

RETURNS    THE    LOCATI 
RETURNS    0 


<><><><><><><>*/ 

*/ 


*/ 

AND    TYPE     IN       */ 

*/ 

ON    FOUND  */ 

*/ 

*/ 


:d; 


0) 


LOOKCONI:     PROCEDURE    (VALtf,     TYP)    FIXED; 

DECLARE     (VALtf,     TYP,     CURADR,     FNDADR)     FIXEl 

CURADR    =    CONLOC; 

FNDADR    =    0; 

DO  WHILE  (CURADR  >  0)  £  (FNDADR  = 

IF  VAL#  =  CONINT (CUKADR)  THEN 

IF    TYP    =    CONTYPE(CURADR)     THEN 

FNDADR    =    CURADR; 

CURADR    =    CURAOR    -    1; 
END; 

RETURN    FNDADR; 
LOOKCONI  ; 


END 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


HASHV 

HASHES  USING  THE  VALUE  #'S 
OPERATOR  MOD  HASH8ASE. 
OP  =  THE  OPERATOR 
IND  ^  THE  INDICATOR  FOR  TH 
EXEC  STACK  ENTRIES 
ENTRIES. 

0  I S  THE  CURRENT  EXEC  S 

1  ALREADY  EXISTS  IN  THE 
HASH  IS  FORMED: 

OPA  +  ....  *    GPN  *■    OPERAND 
HASH8ASE  IS  CURRENTLY  SET 


<><><><><><><>*/ 

*/ 

*/ 

AND  THE 

*/ 

*/ 

*/ 

E  CURRENT 

*/ 

OR  VALUE  TABLE3 

*/ 

TACK 

*/ 

VALUE  TABLE 

*/ 

*/ 

+  F 

*/ 

TO  127. 

*/ 

*/ 

HASHV:  PROCEDURE  (OP,  IND)  FIXED; 

DECLARE  (OP,  IND,  NUMOP,  SUM)  FIXEO; 

NUMOP  ='  OP_DEGL(OP) ; 

SUM  =  OP; 

DO    WHILE    NUMOP    >    0; 

NUMOP    =    NUMOP    -    1; 
DO    CASE    IND; 

SUM    =     SUM    <■    EXVALtf     (ETOP    -    NUMOP); 
SUM    =    SUM    f    EXNAMtf    (ETOP    -    NUMOP); 


END 


END; 
END; 

RETURN  (SUM  +  IND)  MOD  HASHBASE; 
HASHV; 
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/* 
/* 

/*  SEARCHE 

/*  FOR    AN 

/*  1. 

/*  2. 

/* 

/*  ALL    EXP 

/*  THE    SAM 

/*  EXPRESS 

/*  AN    EXAC 

/*  0    = 

/*  F    = 

/* 

/*  ST    = 

/* 

/*  ROUTINE 

/* 

/* 

LGCKUPV:     PROCEOURE    (0,F, 
DECLARE(0,F,     VAOR,     t 
FIXED, 
(OK,     FOUND) 


W<>.>  <><.><><.  ><><><><><><>  <><><><><>*/ 

*/ 

LOOKUPV  */ 

S  FOR  AN  EXACT  VALUE  TABLE  ENTRY  */ 

OPERATION  AND:  */ 

NOT    FOJND     ...     RETURNS    0  */ 

FOUNO    ...     RETURNS    FWA    OF    VALUE  */ 

TABLE    ENTRY  */ 

RESSION  TABLE  ENTRIES  FORMED  BY  */ 

E  OPERAND  ARE  CHAINED  IN  THE  */ 

ION  TABLE  AND  ALL  ARE  CHECKED  FOR  */ 

T  MATCH.  */ 

OPERATOR  */ 

SWITCH  TO  DETERMINE  HOW  TO  FORK  */ 

HASHCODE  */ 

TOP    OF    EXPRESSION    TABLE  */ 

(EFFECTIVELY    LIMITS    SEARCH)  */ 

S    CALLED:  */ 

HASHV  */ 

*/ 

ST)     FIXED; 

STADR,     TSTOP,     NUMOPERANDS,     OPADR,  ST, EXADR,     RESADR) 


BITd) ; 


OPERTR    =    0; 

RESIND    =    F; 

EADR    =    ETOP; 

VADR  =  HASHV<0,  F) ; 

HASHADR  =  VADR; 

TSTADR  =  0; 

VADR  =  VTAS(VADR); 


DO  WHILE  VADR  >  HASH 
TSTOP  =  VT  ABC/AD 
TSTOP  =  TSTOP  & 


BASE; 

R) ; 
FF"; 


IF  (VADR  <=  ST)  £  (TSTOP 
DO; 

NUMOPE  PANDS 
OPADR  =  VADR 
OK  =  TRUE; 


0)  THEN 


=  OP_DEGL(0) ; 
*  2; 


IF  OP_TYPE(0)  =  COMM  THEN 
DO; 


NUMOPERA 
EXADR  = 
RESADR  = 


DO  WHILE 
TSTA 
FOUN 
DO  W 


NDS  =  NUMOPERANDS  -  1; 
ETOP  -  NUMOPERANDS; 
OPADR  «•  NUMOPERANDS; 


/* 
/* 
/* 

/* 
/* 
/* 
/* 
/* 


OPERTR    =    OPERATOR    CODE 
RESIND    =    FORMAL/COMPU 
EADR     =    EXEC    STK    POINTER 
HASHADR    =    HASHCODE    OF    ADR 
IN    VTA8 
I    =    VTAB    SU3SCRIPT0R 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


/* 

/* 
/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 
/* 


FIND  ALL  ENTRIES  THAT 
TO  SAME  LOCATION. 

HASH  =  OPERANDA  * 
GPERANDB  v 
OPERATOR 


*/ 
HASH*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


*/ 

CHECK  ALL  ENTRIES  BELOW  */ 
PREDEFINED  LIMIT  (ST)  THAT*/ 
HAVE  SAME  OPERATOR  (K  =  0)*/ 

*/ 


*/ 

IS    OPERATOR    COMMUNITIVE  */ 

VARIABLES      E    =    EXEC    STK         */ 

POINTER  */ 

N    =    VTAB    POINTR*/ 

*/ 


OK  £  (EXADR  <=  ETOP); 
DR  =  OPADR; 
D  =  FALSE; 

HILE  TSTADR  <=  RESADR; 
DO  CASE  F; 

IF  VTAB(TSTAOR)  =  E XVAL#( EXADR ) 

FOUND  =  TRUE; 


/*  */ 

/*  YES... CHECK  EACH  OPERAND  */ 

/*  AGAINST  EXPRESSION  TABLE  */ 

/*  ENTRY  */ 

/*  */ 


/*  */ 

/*  ACTUAL  CHECK  OF  OPERANDS  */ 
/*  WHICH  CHECKS  THE  EXPRESSING/ 
/*    ENT*Y    AGAINST     THE     INPUT  */ 

/*    OPERANDS  */ 

/*  */ 


THEN 
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END; 


it-    VI 

FOUND 


ADI  I5IAUKI      ■     CAIIAHBltAAUK)      I  HtN 

=  TRUE; 

/«■ 

/*  MARK  THE  EXPRESSION 
/*  OPERAND  IF  IDENTICAL 
/*  WONT  FIND  IT  AGAIN 
/* 


(It  15)  I  VTAB(TSTADR) ; 


END; 


IF 

FOUND 

THEN 

DO; 

VTABITSTADI 

^TSTADR  =  RESADR; 

END 

t 

TSTADR  = 

TSTADR  *■  l; 

*/ 

*/ 

SO  WE*/ 
*/ 
*/ 


end; 


OK  =  FOUND; 
EXADR  =  EXADR 


/*  */ 

/*  ADVANCE  TO  NEXT  OPERAND  IN*/ 

/*  EXEC  STACK  */ 

/*  */ 


♦  l; 


/* 

/* 

TAKE 

/* 

DO 

OPADR  = 

=  OPADR 

TO 

RESADR; 

VTABIOP 

=  VTA 

£ 

"7FFF 

END 

se 

END 

;  el 

/* 

NON- 

INDICATOR  BIT  OFF 


*/ 
*/ 

*/ 


END 


DO  WHILE(NUMOPERANDS 
NUMGPE  RANDS  =  NJM 
DO  CASE  F; 

IF  VTABIOPADR 
IF  VTAB(GPADR 

END; 

OPADR  =  OPADR  f  I 
END; 

IF  OK  THEN  RETURN  VAD 


>    0)     C    OK; 
OPERANDS    -    1; 


/*  NON-COMMUTATIVE  OPERATOR  */ 
/*  OPERANDS  MUST  BE  IN  SAME  */ 
/*    ORDER  */ 


R; 


.=    EXVALJME 
.=    EXNAM#(E 


END 


VADR  = 
END; 

RETURN  FAL 
LOOKUPV; 


VTABIVADR  -♦    1) 


TOP-N'JMOPERANDS)     THEN    OK    =     TRUE; 
TOP-NUMOPERANDS)     THEN    OK    =    TRUE; 


/*  */ 

/*  ADVANCE  TO  NEXT  EXPRESSION*/ 
/*  TABLE  ENTRY  MARKED  IN  THE  */ 
/#  COLLISION  FIELD.  */ 

/*  */ 


ENTERV:  PROCED 
DECLARE  (I 
ALFVL=l ; 
I  =  VTOP  <■ 
NUMOP  =  OP 
VTOP  =  VTO 
IF  VTOP  >= 
DO? 


SE; 

/*< 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*< 

URE 

r  N 

i; 

_DE 
P  + 
VTO 


><><><><><><><><><><><><><><><><><><><><>*/ 

*/ 


ENTE 
BUILDS  AN  EXPRES 
FOLLOWS: 

X     0/1. .HASH 
+1    COLLISION 
+2    VALUE  #    F 
+  3    VALUE  fr    F 
(POSSIBLE 
*4|   VALUE  #  F 
+5|   POINT  TO 
(MASTER  C 
USES  FOLLOWING  V 
OPERTR 
HASHADR 
RESIND 


RV 

SI  ON 


TABLE  ENTRY  AS 


EADR 

THE  NEW  ENTRY  IS 
ENTRY  AWAY  FROM 
RETURNS  FWA  OF  N 
ENTRV. 

ROUTINES  CALLED: 
ERRO 


CD.  .OPERA 
FIELD. .0 
OR  OPERAN 
OR  OPERAN 
MORE  THA 
OR  RESULT 
LAST  VALU 
HAIN) 
ARIABLE: 
=  OPERATO 
=  C0LL1SI 
=  INOICAT 
RESULT 

0  =  EXEC 

1  =  IN  VA 
=  BASE  IN 

FIRST  0 

ALWAYS  S 

THE  MASTE 

EW  EXPRES 


TOR 

IF  NOT  USED 
0  A 

03  ETC 
N  2  OPERANDS) 

E  TABLE  ENTRY 


R 

ON  HASH  ADORES 
OR  FOR  WHERE 
VALUE  #     IS  FOU 
STACK 
LUE  TABLE 

EXEC  STACK  FO 
PERAND 

ET  TO  BE  FIRST 
R  HASHADR  (LIF 
SI  ON  TABLE 


FIXED; 
UMOP,  ADR)  FIXED; 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

S  */ 
*/ 

ND*/ 
*/ 
*/ 

R  */ 
*/ 
*/ 

0)*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

<>*/ 


GL(OPERTR) ; 

NUMOP    *■    VTSPACE 
PR    CHEN 


«■  3; 
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CALL  t 

VTOP  = 
VTOPR= 

END; 

VTAB( VTOP) 


HKUHl*     VALUt     lAbLfc     UVfcKt-LUW',      U; 

HASH8ASE; 
MAXVAL+l; 


=  I 


l; 


/*SET  IN  IN 
/*HASH  ADOR 
VTA3(I)  =  SHLIRESIND,  15)  I  SHLiHASHAOR,  8)  |  OPERTR; 

/* 

/*  SET  COLL 
/*  EITHER  0 
/*       -.=0 
/* 
/* 
/* 


VTABU  ♦  I  )  =  VTAB(HASHAOR)  I 


VTAB(HASHADR)  =  I; 


/* 

/*  SET  MAST 

/*  POINT  TO 

/*  ENTRY  IF 

/* 


ADR  =  I; 
1=1+2; 

00  WHILE  N 

NUMOP 

DO  CAS 

VT 

VT 

END; 

1=1+1; 

END; 

RETURN  ADR: 
END  ENTERVj 


/*SET  IN  THE  OPERANDS 


DICATOR,  MASTER    */ 
ESS  AND  OPERATOR   */ 

*/ 

ISION  FIELD  TO     */ 

=  NO  COLLISION    */ 

=  COLLISION  HASH  */ 

AODRESS  OF  NEXT*/ 

VALUE  ENTRY     */ 

*/ 

*/ 

ER    HASH    ADDRESS    TO*/ 

LAST    VALUE     TABLE     */ 

COLLI SION    OCCURS    */ 

*/ 

*/ 


umop  >  o; 

=    NUMOP    -    IS 

E    RESIND; 

AB(I)     =    EXVAIJH  EADR    -    NUMOP); 

ABU)     =    EXNAM#(EADR    -    NUMOP); 


/*RETURN    FWA    OF    NEW    ENTRY 


*/ 


REENTERV:  PROC 
DECLARE  (0 
OPERTR  =  0 
RESIND  =  F 
EADR  =  ETO 
HASHAOR  = 
RETURN  ENT 

END  REENTERV; 


/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*  REENTERV  */ 

/*    ENTERS    A    VALUE    TABLE     ENTRY    VIA    THE  */ 

/*    COLLISION    FIELD    OF    A     PREVIOUS    ENTRY  */ 

/*  0    =    OPERAND  */ 

/*  F    =    OPERATION    LOCATION     (SEE    HASHV  */ 

/*  ENTRY)  */• 

/*    RETURNS     FWA    OF    NEW    VALUE    TABLE     ENTRY  */ 

/*    ROUTINES    CALLED:  */ 

/*  HASHV  */ 

/*  */ 
/*<><><><><><><><><><><><><><><><><><><><><>*/ 
cDURE(0,F>     FIXED; 
,F)     FIXED? 


REMCVEV:PROCED 

DECLARE     (T 

ALTVL=l; 

DO    WHILE    V 

VTOP    = 

HSHADR 

HSHADR 

VTA3(H 


END 


END; 
REMOVEV; 


GET. 


ST:  PROCED 
STLOC=STLO 
IF  STLOC  > 
DO; 


p; 

HASHVIO,  F); 

erv; 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/*  */ 

/*              REMOVEV  */ 

/*  REMOVES  VALUE  TABLE  ENTRIES  ABOVE  TOP.  */ 

/*  LINKS  THE  COLLISION  FIELD  OF  REMOVED  */ 

/*  ENTRY  TO  MAINTAIN  CHAIN.  */ 

/*  */ 
/*<><><><><><><><><><><><><><><><><><><><><>*/ 
URE  (TOP) ; 
OP,  HSHADR)  FIXED; 

TOP  >  TOP; 

VTAB  (VTOP) ; 

=  VTAB(VTOP  *■     1); 

=  SHRIHSHAOR,  3)  &  "7F"  ; 
SHADR)  =  VTABtVTOP  *■    2); 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
/*  */ 

/*  GET_ST  */ 

/*    ADVANCE    THE    STATE    POINTER    AND    CHECK    FOR       */ 
/*    OVERFLOW.  */ 

/*    ROUTINES    CALLED:  */ 

/*  ERROR  */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
ure; 
en  ; 
MAXSTATE    THEN 
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LAIL     bKKUHl'     SIAft      lAbLt     UVtKhLUW,      Hi     ' 
STLOC=l; 

end; 
END  GET_ST; 

/*  */ 

/*              GET  ADOR  */ 

/*  DECREMENT  ADDLOCR  AND  TEST  FOR  OVERLAP    */ 

/*  WITH  AODLOC  */ 

/*  ROUTINES  CALLED:  */ 

/*              ERROR  */ 

/*  */ 
/*<>oo<><><><><><>  <><><><><>  <><><><><><><>*/ 
GET_ADDR:  PROCEDURE; 

ADDLOCR=ADDLOCR-lJ 

IF  AODLOCR  <  =  AUDLOC  THEN 

DO; 

CALL    ERROR  (•     STATE    ADDRESS    TABLE    OVERFLOW,     l )  ; 
ADDLOCR^MAXADD; 
END; 
END  get^addr; 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
/*  */ 

/*  GET.EXECR  */ 

/*  ADVANCES  EXEC  STACK  TOP  POINTER  AND  */ 
/*  CHECKS  FOR  UNDERFLOW.  */ 

/*  ROUTINES  CALLED:  */ 

/*  ERROR  */ 

/*  */ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 
GET_EXECR:  PROCEDURE; 
ETOPR=ETOPR-l ; 
IF  ETOPR  <=ETOP  THEN 
DO; 

CALL  ERRORC  EXEC  STACK  OVERFLCW  (REVERSE)  •,  I); 
ETOPR=MAXEXEC; 
END; 
END  GET_EXECR; 

/*  */ 

/*  GET_EXEC  */ 

/*  ADVANCE  THE  EXEC  STACK  POINTER  AND  */ 

/*  CHECK  FOR  OVERFOLW  */ 

/*  ROUTINES  CALLED:  */ 

/*  ERROR  */ 

/*  */ 

GET_£XEC:  PROCEDURE; 
ETOP=ETOP+l; 
IF  ETOP  >=  ETOPR  THEN 
DO; 

CALL  ERROR  (•  EXEC  STACK  OVERFLOW  (FORWARD)  •  ,  I); 

ETOP=l; 

end; 
end  get_exec; 

/*<>o<><><><><><><><><><><>  <><><><><><><><>*/ 
/*  */ 

/*                                     GET_VTOPR  */ 

/*  DECREMENT    VTOPR    AND    THEN    CHECK    TO    SEE     IF    */ 

/*  IT    HAS    DECREASED     TO    VTOP.  ERROR     IS    SENT    */ 

/*  IF    ABOVE    OCCURS.  */ 

/*  ROUTINES    CALLED:  */ 

/*                                   ER*OR  */ 

/*  */ 

GET    VTOPk:    PROCEDURE; 
VTOPR=VTOPR-l ; 
IF    VIOPR    <    VTOP    THEN 
DO; 

CALL    ERRORC    VALUE    TABLE     OVERFLOW    (FROM    TOP)     •,     1); 
VTOPR    =    MAXVAL; 
VTOP    =    HASHBASE! 
END; 
END    GET    VTOPR; 

/*<><><><> <><><><><> <><><><><><><><><><><><>*/ 
/*  */ 

/*  PERMUTE  */ 

/*    PERMUTES    OPERANDS    STARTING    AT    A    CORE  */ 

/*    ADDRESS    OF    ADR     IN    A    TABLE     STRUCTURED  */ 

/*    WITH    //BYTE    BYTES    PER    ENTRY.       REUTRNS    A  */ 

/*  TRUE  CONDITION  IF  A  PERMUTATION  POSSIBLE.*/ 
/*  WHEN  CALLED  FOR  THE  FIRST  TIME,  F  IRSTCALL*/ 
/*    MUST    EQUAL    TRUE     IN    ORDER    TO    PRESET  */ 

/*    POINTERS.  */ 

/*    ADOPTED    FROM    CACM    ALGORITHM    115.  */ 

/*  */ 

PERMUTE:  PROCEDURE (NUMUP ,  ADR,  tfBYTE,  METHOD)  B  I  T (  1 )  J 
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UtLLAKC     INU.1UP,     AUK,     KBYIt, 

LUUK,      flA,     V 

DATA    BIT( 8) , 

{PERMFLG,    FOUND,    METHOD) 

PERMFLG    =     FALSE; 

IF    FIRSTCALL    THEN 

DO; 

FIRSTCALL     =    FALSE; 

BOPA    =    1; 

bOPB   =    l; 

END; 

BOPB    =    BOP3    *■     I; 

IF    BOPB    >    NUMOP    THEN 

DO; 

BOPA    =    BOPA    f    I; 

BOPB    =    BOPA    +    l; 

IF    BOPA    <    NUMOP    THEN 

PERMFLG    =     TRUE; 

END;     ELSE 

PERMFLG    =     TRUE; 

LOOP    =    #BYTE    -     l; 

IF    PERMFLG    THEN 

DO; 

PTA    =     (BOPA    -    1)     *    #BYTE 

t 

PTB    =     (BOPB    -    1)     *    tfBYTE 

; 

IF    METHOD    THEN 

do; 

PTA    =    ADR    +    PTA; 

PTB    =    ADR    ^    PTB; 

end;    ELSE 

do; 

PTA    =    ADR    -    PTA; 

PTB    =    ADR    -     PTB; 

END; 

DO    I     =    0    TO    LOOP; 

DATA    =    COREBYTE(PTA 

+   I); 

COREBYTEtPTA     f     I)     = 

COREBYTE(PTB 

COREBYTE(PTB    +     I)     = 

DATA; 

Vlb,      II     hlAtD, 


L,UKtBY  JfclPIU     +     L)     =     UATA; 

end; 
ENO; 

RETURN  PERMFLG; 
END  PERMUTE; 

/*  "  */ 

/*  INSRT  SUC  BLOCK  */ 

/*  INSERTS  TO  THE  TOP  OF  THE  BLOCK  TO  BE  */ 

/*  PROCESSED  LIST.   THE  NUMBER  OF  EXITS  ARE  */ 

/*  ADVANCED  AND  TOGGLES  ARE  SET  FOR  BLOCK  */ 

/*  IN  QUESTION.  */ 

/*  BIT  31     30-16      15-0  */ 

/*  PREDECESSOR   BLK  FWA  IN  CODE  */ 

/*  BLOCK#  */ 

/*  1  =  BLOCK  DJES  NOT  NEED  TO  BE  */ 

/*  PROCESSED  */ 

/*  0  =  BLOCK  NEEDS  TO  BE  PROCESSED  */ 

/*  */ 

/*  ROUTINES  CALLED:  */ 

/*  ERROR  */ 

/*  */ 

INSRT  SUC_BLOCK:  PROC EDURE ( FWA ) ; 
DE"CLAR  =  (FWA,  TEMA,  I)  FIXED; 
ALTCT=i; 
CTOP=CT0P+l; 
IF  CTOP  >  MAXCONT  THEN 
DO; 

CALL  ERROR( "CONTROL  TABLE  OVERFLOW',  l); 

CTOP=i; 

END; 

CONTROL(CTOP)     =    SHL(BLK#,     16)     |     FWA; 

fttXITS=#XITS*-l  ; 

TEMA  =  0; 

/* 


DO  I  =  0  TO  «TOGS; 

TEMA  =  TEMA  |  SHL( TOGGLES ( I ) ,  I); 

END; 

SAV_TOG(CTOP)  =  TEMA; 
END  lNSRT_SUC_BLOCK; 


.  */ 

/*  BUILD  THE  TOGGLE  WORD  FOR  */ 
/*  THE  BLOCK  AND  SAVE  IT  */ 
/*  */ 


2*K) 


2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
234  7 
2348 
2349 
2350 
23  51 
2352 
2353 
2354 
23  55 
23  56 
2357 
2358 
2359 
23  60 
2361 
2362 
23  63 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
23  71 
2372 
2373 
2374 
2375 
23  76 
2377 
2378 
23  79 
2380 
2381 
2382 
23  83 
2384 
2385 
2356 

23  8  7 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
24C4 
2405 
2406 
240  7 
240  8 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 

24  2  2 
2A23 
2424 
2425 
2426 
2427 
2428 
2429 
2430 


PERFORM 
OR  PRES 
ACCORD  I 
ROUTINE 


ROUTINE 


PROPAGATE:    P 
DECLARE 


EXTRACT 

THE  STA 

I  =  T 

J  =  T 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

ROCEOUREICAS 
(  CASE#  ,  SU13CA 

/* 
/* 
/* 
/* 
/* 
/* 
/* 

PROCEDURE; 
EXADDI ETOP) ; 
EXADD(ETOP    - 
CONINT( I ) 5 
CONINTI J) ; 

U; 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/*<><><><> 

ENTER  I:     PROCEDURE; 

RE^ULi  =LuuKC«Jn  I  ( 
IF  RESULTS  THEN 
DO; 

CALL  ENTERCO 
RESULT  =  CON 
CONVAHRESUL 


' ><><><>< ><><><><><> 


PRO 

S    THE    TO 

ETS    THE 

NG    TO    I  T 

S    WITHIN 

SET 

ENT 

ENT 

S    CALLED 

!e? 

ENT 
ERR 
ENT 

Ert.SUBCA 
S  E  H  ,  *  E  S  U 

SET 

S    THE    TO 

CK. 

OP 

OP    -    I 


ATION 
VALUE 


PAGATE 

P     OPFR 
B INARY 
S     TYPE. 
PROCEDURE: 

FRI 
ER8 

ONVERT 

FRI 

OR 

ER8 


SE#)     F 
LT,  I  ,  J 


Ixed; 

•  K,L) 


*/ 
*/ 

OF    THE    STACK       */ 

OF    A    CONSTANT*/ 

*/ 

*/ 

V, 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

FIXEOJ 

*/ 


SET_IJ: 
I  = 
J  = 
I  = 
J  = 

END  SET_ 


IJ  */ 

P  2  CONSTANT  VALUES  FROM   */ 

*/ 
*/ 
*/ 
*/ 


l); 


CHECKS 
THE    CON 
ENTRY    F 
CONSTAT 
ROUTINE 


<><><><><><><><><><><><><><><><><>*/ 

*/ 

ENTERI  */ 

FOR    AN     INTEGER    VALUE    ALREADY    IN  */ 

STANT    TA3LE.        IF    NOT    FOUND    A    NEW       */ 

OR    THE    CONSTANT     IS    MADE     IN    THE  */ 

T    TABLES.  */ 

S    CALLED:  */ 

LOOKCONI  */ 

ENTERCONI  */ 

GETVAL0  */ 


END; 

END    ENTE 


IN|     INI     4     , 


NKKi    INT); 

loc; 

T)=GETVAL#(COMPU) ; 


ENTERS: 
RESU 
IF    R 

do; 


END; 

END  ENTE 
RESULT=0 


ri; 

/* 
/* 

/*  CHECKS 

/*  CONSTAN 

/*  VALUE  I 

/*  ROUTINE 

/* 

/* 

/* 

PROCEDURE; 
LT=LOOKCCNI( 
ESULT=0    THEN 

CALL  ENTERCO 
RESULT  =  CON 
CONVALIRtSUL 
IF  K  THEN  CO 
ELSE    CONSYMI 


ENTERS 
FOR    A    BOOLEAN    VALUE    ALREADY    IN    THE 
T    TABLES.        IF    NOT    FOUND    THE    NEW 
S    PUT    INTO    THE    CONSTANT    TABLES. 
S    CALLED: 

ENTERCONI 

GETVALfl 

K, BOOL) ; 


NKK,     800L); 

loc; 

t)=getval#(compu) } 
nsym( result)   =  'j*; 

RESULT)     =     «F«; 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


RB; 


DO    CASE    CASE0; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* 


RESULT    WILL    BE     SET    TO 
ADDRESS    OF    RESULTING 
COMPUTATION    IN    CONSTANT 
TABLE 


BEGINNING   OF    PROPAGATE 
CASE    0:     NULL 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

*/ 


/*    CASE     l:     DEFAULT    =  >    (TYPE)     */ 
/*    CASE    2:    LOC    »>    (TYPE)  */ 


?M. 


do; 


end; 


I    =    EXAOD(ETOP); 

CON  INT ( I)=I_CONVERT(CONSYM(I) )  ; 


DO; 


I    =    EXADD(ETOP); 

IF    CONSYM(I)     =     {T'     THEN    CONINT(I) 


END; 


ELSE    CONINT(I) 


o; 


=   l; 


DO; 


CALL    SET_IJ; 
K    =    J    <■    I  ; 
CALL    ENTERI; 


DO; 


END; 


CALL  SET  IJ; 
K  =  J  —  T  * 
CALL  ENTERI; 


DO; 


END; 


CALL  SET  IJ; 
K  =  J  *  T: 
CALL  ENTERI; 


DO; 


END; 


CALL  SET_U; 

IF  I  =  0  THEN 

CALL  ERROR! •  ATTEMPT  TO  DIVIDE  BY  ZERO', 

ELSE 

DO; 

K  =  I  /  J; 
CALL  ENTERI; 
END; 


/*  LA5b  it     tNI  ->     11 YKt) 

*/ 

/*  CASE  4:  XIT  =>  (TYPE) 

*/ 

/*  CASE  5:  INT  =>  (TYPE)  */ 
/*  CONVERT  FROM  EXTERNAL  TO  */ 
/*  INTERNAL  FORM  */ 


/*  CASE  6:  REAL  =>  (TYPE)     */ 
/*  CASE  7:  BOOL  =>  (TYPE)     */ 


/* 

CASE 

8: 

IARRAY  =>  (TYPE) 

*/ 

/* 

CASE 

9: 

RARRAY  =>  (TYPE) 

*/ 

/* 

CASE 

10: 

REFER  =>  (OPCODE 

1*/ 

/* 

CASE 

11: 

TOGGLE=>  (OPCODE 

»*/ 

/* 

CASE 

12: 

PASS  =>  (OPCODE) 

*/ 

/* 

CASE 

13: 

TRU  REAL  => 
INT(OPCODE) 

*/ 
*/ 

/* 
/* 

CASE 

14: 

RND  REAL  => 
INT  (OPCODE) 

*/ 
*/ 

/* 
/* 

CASE 

15: 

FLT  INT  => 

REAL  (OPCODE) 

*/ 
*/ 

/* 

CASE 

16: 

AOD  INT  INT  => 

INT  (OPCODE) 

*/ 

/*  CASE  17: 
/* 

/*  CASE  18: 
/* 


RADO  REAL  REAL  =>*/ 

REAL  (OPCODE)  */ 

SUB  INT  INT  =>  */ 

INT  (OPCODE)  */ 


/*  CASE  19:  RSUB  REAL  REAL  =>*/ 
/*  REAL  (OPCODE)     */ 


/*  CASE  20:  MUL  INT  INT  => 

/*  INT  (OPCODE) 


*/ 


/*  CASE  21: 
/* 

/*  CASE  22: 
/* 


3); 


/*  CASE  23: 
/» 


RMUL  REAL  REAL  =>*/ 
REAL  (OPCODE)     */ 


DIV  INT  INT  => 
INT  (OPCODE) 


*/ 


RDIV  REAL  RFAL 
REAL  (OPCODEE 


*/ 

*/ 
*/ 


/*  CASE  24:  EXP  INT  INT  => 

/*  INT  (OPCODE) 

/*  CASE  25:  RIXP  REAL  INT  =>  */ 
/*  REAL  (OPCODE)     */ 


2h2 


/*  CASE  26: 
/* 


IRXP  INT  REAL  =>  */ 
REAL  (OPCODE)     *> 


/*  CASE  27:  RRXP  REAL  REAL  =  >*/ 
/*  REAL  (OPCODE)     */ 


do; 

END; 
DO; 

end; 
DO; 

END; 
do; 

END; 
DO; 

END; 
DO; 

END; 
DO; 

END; 

DO; 

END; 
DO; 

END; 
do; 

END; 


CALL  SET  U; 
K  =  j  <  T; 
CALL  ENTERS; 


CALL  SET_U; 
K  =  J  <=  I  ; 

CALL  enterb; 


CALL  SET_U; 
K  =  J  =  I  ; 
CALL  ENTERB; 


CALL  SET_IJ; 
K  =  J  --=  I  ; 
CALL  enterb; 


CALL  SET_IJ; 
K  =  J  >=  I  ; 
CALL  enterb; 


CALL  SET  U; 
K  =  J  >  T; 

CALL  ENTERB; 


I  =  EXADD(ETCP); 
I  =  CONINT( I) ; 

K  =  -I; 

CALL  ENTERB; 


I  =  EXADD(ETOP); 
I  =  CONINT(I) ; 
K  =-.  I  ; 
CALL  ENTERB; 


CALL  SET  U; 
K  =  J  £  T; 
CALL  ENTERS; 


CALL  SET  U; 
K  =  J  I  T; 
CALL  ENTERS; 


/*  CASE  28: 

/* 

/* 


LSS  DEFAULT 
DEFAULT  =>  BOOL 
(OPCODEE 


/*  CASE  29:  LEQ  DEFAULT 

/*  DEFAULT  =>  BOOL  (OPCODE) 


*/ 


/*  CASE  30:  EQL  DEFAULT       */ 
/*  DEFAULT  =>  BOOL  (OPCODE)   */ 


/*  CASE  31:  NEQ  DEFAULT       */ 
/*  DEFAULT  =>  BOOL  (OPCODE)   */ 


/*  CASE  32:  GEQ  DEFAULT       */ 
/*  DEFAULT  =>  BOOL  (OPCODE)   */ 


/*  CASE  33:  GTR  DEFAULT       */ 
/*  DEFAULT  =>  SOOL  (OPCODE)   *; 


/*  CASE  34:  INEG  INT  =>  INT   */ 
/*  (OPCODE)  */ 


/*  CASE  35:  RNEG  REAL  =>  REAL*/ 
/*  (OPCODE)  */ 

/*  CASE  36:  NOT  BOOL  =>  BOOL  */ 
/*  (OPCODE)  */ 


/*  CASE  37:  AND  BOOL  BOOL   >  */ 
/*  BOOL  (OPCODE)  */ 


/*  CASE  38:  BOR  BOOL  BOOL   >  */ 
/*  BOOL  (OPCODE)  */ 


/*  CASE  39:  LOD  LOC  =>  */ 

/*  DEFAULT  (OPCODE)  */ 

/*  CASE  ^0:  STO  LOC  DEFAULT  */ 

/*  =>  DEFAULT  (OPCODE)  */ 


2kl 


00; 


I    =    EXA0D( etop); 
I    =    CONINT(I); 
IF     I     THEN 

do; 


end; 


SAV_T0G(CT0P    -    1)     =    SAV    TOG(CTOP) 
CONTROL (CTOP-l)=CONTROLlC TOP) ; 


END; 


#XI7S=#XITS-l; 
CTOP=CTOP-l; 


END; 

RETURN  RESULT; 
END  PROPAGATE; 


/*  CASE  41!  STD  LOC  DEFAULT 

/*  =>  (OPCODE) 

/*  CASE  42:  DEL  DEFAULT  => 

/*  (OPCODE) 


/*  CASE  43:  DUP 
/*  (OPCODE) 


=  >  DEFAULT 


/*  CASE  44:  XCH  =>  (OPCODE) 
/*  CASE  45:  HLT  =>  (OPCODE) 

/*  CASE  46:  BRS  XIT  => 

/*  (OPCODE) 

/*    CASE    47:     BSC    BOOL    XIT    => 

/*    (OPCOOE) 

/* 

/*   CONTROL    STACK 
/* 


*/ 
*/ 

*/ 
*/ 

*/ 
*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
*/ 
*/ 

*/ 

*/ 


/*    IS    TOP    ENTRY    ON    EXEC    STACK*/ 
/*    A    CONSTANT  */ 

/*  */ 

/*    YES. ..STRIP    IT  OFF...     IE.,*/ 

/*    SET    UP    TO    TAKE  TRUE     BRANCH*/ 

/*  */ 


/* 
/* 
/* 
/* 

NO.. .SET  UP  TO  TAKE  THE 
FALSE  BRANCH 

*/ 
*/ 
*/ 
*/ 

/* 

CASE  48: 

NOP 

=  >  (OPCODE) 

*/ 

/* 

/* 

CASE  49: 
(OPCODE) 

PRO 

XIT  => 

*/ 

*/ 

/* 

CASE  50: 

RTN 

=>  (OPCODE) 

*/ 

/* 
/* 

CASE  51: 
(OPCODE) 

GET 

INT  =>  LOC 

*/ 
*/ 

/* 
/* 

CASE  52: 
(OPCODE) 

RET 

LOC  => 

*/ 
*/ 

/* 

/* 

CASE  53: 
(OPCOOE) 

RRD 

=>  REAL 

*/ 
*/ 

/* 
/* 

CASE  54: 
(OPCODE) 

IRD 

=  >  INT 

*/ 
*/ 

/* 
/* 

CASE  55: 
(OPCODE) 

BRD 

=>  BOOL 

*/ 
*/ 

/* 
/* 

CASE  56: 
(OPCODE) 

WRV 

DEFAULT  => 

*/ 

*/ 

/* 

CASE  57: 

DMP 

=>  (OPCODE) 

*/ 

/* 
/* 

CASE  58: 
(OPCODE) 

TAB 

INT  => 

*/ 
*/ 

/* 

/* 

CASE  59: 
(OPCODE) 

SUP 

DEFAULT  => 

*/ 
*/ 

2kk 


BLOCK  A 
ENTRY  I 
PROCESS 
TO  CSFC 
UNTIL  A 
IS  ENCO 
BLOCK  T 
ENTRY  A 
PRESENT 
ARE  CHE 

1  = 

2  = 

3  = 

4  = 


ROUTINES 


BASIC_BLOCK 
DECLARE 


SEARCH  OPTI 
DECLARE 

OPLFT  = 

FIRSTCA 

COMOP  = 

FOUND  = 

INTAB  = 

I  =  OPT 

DO  WHIL 

SRC 

IF 

INT 

ELS 

DO 


/* 
/  + 

/* 

/* 

/  + 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  ROUTINES 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

:  PROCEDURE; 
(CODE,  TYP, 

VPOINT,  VT, 
(DEGL,  DEGR, 
(RETAIN,  C, 
/* 

/* 
/* 
/* 
/* 
/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 

M  TABLE:  PROC 

7/adr,  NUMOP, 

COMOP,  BASEA 
TRUE; 
LL  =  TRUE; 
OP_TYPE(OP) 
FALSE; 
FALSE; 

op  -  I ; 

E  {  I  >  0)  £ 

HADR  =  0PTIM_ 
SRCHADR  =  ADR 
AB  =  TRUE; 
E 

WHILE  OPLFT; 
NUMi  NUMOP  = 

J  =  o; 

OPSFNO  =  0; 

DO  WHILE  NUM 
IF  VTAB( 
OPSFND  = 
NUMOP  = 
J  =  J  + 

END; 

IF  OPSFND  = 

DO; 

IF  VTAB( 

DO; 

IF  V 
DO; 


BAS 
NALYZER 

S  MADE  W 
ING  USES 
UDE.   CU 

BRANCH 
UNTERED. 
U  BE  PRO 
NO  UPON 
.   FOU<* 
CKEO  FOR 
COMMON 
CONSTAN 
SIMPLIF 
COMMON 
TO  CONS 


IC    BLOCK 

DOfiE    BY    OPERATOR     TYPE 

I TH  M  CONTROL  SET  . 

M  CONTROL  AS  THE.  POI 
DE  WORDS  ARE  PROCESSE 
OPERATOR  OR    AN  ENTRY 
THE  INPUT  POOL  FOR 
CESSED  IS  PRESET  BEFO 
EXIT  THE  OUT  PUT  POOL 
TYPES  OF  OPTIMIZATION 


NTER 
D 

POINT*/ 
THE   */ 


*/ 
*/ 
*/ 
*/ 
*/ 


SUBEXPRESSIONS 

T  PROPAGATIONS 

I  CAT  IONS 

SUBEXPRESSIONS  THAT  LINK 

TANT  PROPAGATION 


WITHIN  PROCEDURE: 

PROP  CONS 

SIMPLIFY 

CONSTANT  CLASS 
CALLED: 

DECODE 

CERROR 

LOOKADD 

ENTERADD 

GETVALtf     -   • 

INSRT  SUC_BLOCK 

GET.EXEC 

L00KUP7 

CONISTANT_CLASS 

REENTERV 

SIMPLIFY 

SET_SUBCLASS 

GET  VTOPR 

ENTfRV 

ERROR 

PROPAGATE 


<><><><><><><><><><><><><><>< 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

*/ 


SEARCHE 

IN  THE 

RETURNS 

THIS  RO 

IDENTIC 

COMPUTE 

ROUTINE 


OP,  A,  V,  N,  It  J,  FIRST,  LAST,  FORM, 
NT,  EA,  NUMOP,  COUNT)  FIXED, 
DEFTYPE,  RESTYPE)  BIT(8), 

SU8EXP)  6IT(1); 

*/ 

*/ 

SEARCH  OPTIM  TABLE 
AN  EXACT  EXPRESSION  MATCH 
ZATICN  AREA.   IF  FOUND 
OCATION  OF  THE  OPTIMIZATION 
IS  USED  TO  IDENTIFY 
IMIZATIONS  PREVIOUSLY 


S  FOR 
OPTIMI 
THE  L 
UTINE 
AL  OPT 
D. 

S  CALL 
P 
E 

<><><> 

EDURF( 
I  ,  J, 

DR,  NU 


EO: 

E*MUTE 

RROR 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


ADR)  FIXED; 

OPSFND,  SRCHADR,  FOUND,  INTAB, 
M,  PERM,  OPLFTJ  FIXED; 


COMM; 


(-.FOUND)  ; 
AOR_L  1ST (  I  )  ; 
THEN 


DEGL; 


op  >  o; 

SRCHADR    -    J) 
OPSFND    ♦•     L; 
NUMOP    -    i; 

l; 


VTABtADR  -  J)  THEN 


DEGL  THEN 

SRCHADR  -  DEGL  -  I)  =  VTABUDR 

TABISRCHADR  -  DEGL)  <  VTABUDR 


SUBCASEf 


DEGL  -  1 )  THEN 
DEGL)  THEN 


END; 


end; 


OPLFT    =    FALSE; 

FOUND    =    VTAB(SRCHADR    -    DEGL); 


!^S 


tNUJ 

IF  --FOUND  THEN 

oo; 

IF  COMOP  THEN 

DO; 

baseaor  =  ad 
perm  =  permu 
if  -perm  the 
oplft  =  fals 

end; 

ELSE 

OPLFT  =  FALSE; 
END; 
END; 

OPLFT  =  true; 
FIRSTCALL  =  TRUE; 
I  =  I  -  1; 
end; 

IF  -INTAB  THEN 
DO; 

OPTIM_ADR    LIST(OPTOP)     = 

OPTOP  =  OPTOP  *■     IS 

IF  OPTOP  >  MAX_OPTIMIZAT 

DO; 

CALL  ERROR! ' MAXIMUM 
OPTOP  =  OPTOP  -  IS 

END; 
end; 

return  found; 
END  search_cptim_table; 

/* 

/*  SE 

/*  searches  the  pa 
/*  for  a  exact  du? 
/*  address  into  th 
/*  if  no  match  is 
/*  entered  for  fut 
/*  routines  called 

/*  SEA 

/* 

SE T_OPT iM_LOC :     PROCEDURE     iADRi; 
DECLARE     (ADR,     SAME_GPTIM)     FI 
IF    ADR    =    0     THEN 
RETURN; 

SAKE    OPTIM    =    SEARCH    OPTIM    TA 
IF    SA"ME    OPTIM    -•=    0    THEN 
VTA6IADR    -    DEGL)    =    SAME_OPTI 

END    SET_OPTIM_LOCS 

/* 

PRO 
INSURES  THAT  AL 
IF  SO,  THE  OPER 
RETURNS 


OR (VTA 

TE(NUM 

N 

ES 


B(ADR) ) ; 

,    BASEADR,     2,    FALSE); 


ADR; 
IONS    T 
OPTIMI 


HEN 

ZATIONS    EXCEEDED',     7); 


T  OPTIM_LOC 

ST  OPTIMIZATION  ADDRESS 
LICATE  TO  SET  IN  THE 
E  OPTIMIZATION  AREA. 
FOUND  THE  NEW  ENTRY  IS 
URE  SEARCHES. 

*CH_OPTIM_TA8LE 

XED; 

BLE(ADR) ; 
MS 


>*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
>*/ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


ROUTINES 


CALLED 
PRO 


P  CONS 
L~OPER 
ATION 
0  IF 
=  0  THE 
IN 

PAGATE 


prop  cons:  procedure  fixed; 

Declare  numop  fixed,  conflg  bitid; 
conflg  =  true; 
numop  =  degl; 


DO    WHILE     (NUMOP    >    0)     &    CONFLG; 

NUMOP    =    NUMOP    -    I ; 

CONFLG  =  EXCON(ETOP  -  NUMOPJ ; 
END: 
IF  CONFLG  THEN 


RETURN  PROPAGATE (OP,  SUBCASE); 
RETURN  0: 
END  PROP.CONSS 
/* 


>*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

*/ 


ANDS  ARE  CONSTANTS. 

IS  PERFORMED. 

NOT  ALL  CONSTANTS 
ADDRESS  OF  ANSWER 
CONSTANT  TABLE 


/*  */ 

/*  CHECK  ALL  OPERANOS  FOR  AN  */ 
/*  OPERATOR  FOR  A  CONSTANT  */ 
/*  BIT  IN  THE  EXEC  STACK  */ 
/*  */ 


/*  IF  ALL  OPERANDS  ARE  */ 

/*  CONSTANTS  CALL  PROPAGATE  */ 

/*  TO  FORM  TO  ANSWER  TO  THE  */ 

/*  DESIRED  OPERATION  */ 


*/ 


?J\6 


/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/* 

*/ 

/* 

SIMPLIFY 

*/ 

/* 

USED  IN  THE  CASE  OF  A 

SIMPLIFICATION      */ 

/* 

OPERATOR.   A  SIMPLIFICATION  IS  SEARCHED   */ 

/* 

FOR  SUCH  AS: 

*/ 

/* 

0  ♦■  A  =  A 

*/ 

/* 

1  *  A  =  A 

*/ 

/* 

0  *  A  =  0 

ETC.          */ 

/* 

ROUTINES  CALLED: 

*/ 

/* 

PROP  CONS 

*/ 

/* 

error: 

*/ 

/* 

LOOKCONS 

*/ 

/* 

GET  EXECR 

*/ 

/* 

PERMUTE 

*/ 

/* 

ENTERCONS 

*/ 

/* 

PROPAGATE 

*/ 

/* 

GETVAL# 

*/ 

/* 

*/ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/* 

*/ 

SIMPLIFY:  procedure; 

DECLARE  (POSIT,  RLPNT,  TYP,  SAVRl 

CONSADR,  STPNT,  RESPNT 

,  VALADR,  FIRSTPERM, 
TYP)  BITI16), 

(EXTCP,  DATA,  ID#,  RES 

(MATCH,  COMOP)  8IT(1)  ; 

EA  =  PROF 

'_cons; 

/*  CHECK  FO 

IF    EA-.: 
DO; 


0    THEN 


V    =    CONVAL(EA) ; 


IF    OPTIM_TYPE( M_CONTROL)    =    "3"    THEN 

OPTIM_TYPE(M_CONTROL)     =    "4"; 

ELSE 

optim_type(m  control)   =  "2"; 
return; 


/* 
/* 
/* 
/* 
/* 


/* 


EXPNT,  IND» 
OPADR)  FIXED, 


ALL  CONSTANT  */ 
OPERANDS.  IF  THIS  IS  MET,*/ 
AN  OBVIOUS  CONSTANT  */ 
PROPAGATION  IS  PRESENT  AND*/ 
CAN  BE  SIMPLIFIED.         */ 

*/ 


*/ 
*/ 
*/ 


END; 


posit  =  o; 

EXTOP  =  ETOPR; 


IF  (STLOC+DEGL)  >  MAXSTATE  THEN 
DO; 

CALL  ERROR (• STATE  TABLE  OVERFLOW  (2) 
RETURN; 
END; 


RLPNT  =  SIMP  INDEX(OP); 
TYP  =  OP  INFD(RLPNT); 
COMOP  =  DP_TYPE(0P)  =  COMM; 
FIRSTCALL  =  TRUE; 
MATCH  =  FALSE; 


DO  WHILE  (RLPNT  -=  0)  C  (-.MATCH); 
SAVRLPNT  =  RLPNT; 


OPFORH  =  FORM; 
NUMOP  =  o; 
MATCH  =  TRUE; 
ETOPR  =  EXTOP; 

posit    =  o; 


/*    YES. ..SET    VAL#    IN   V. 
/* 

/*  */ 

/*    IF    COMMON    SUBEXPRESSION  */ 
/*    ALREADY    DETECTED,     INDICATE*/ 

/*    LIN<     AND    SIMPLY    MARK    AS  */ 

/*    CONSTANT    PROPAGATION.  */ 

/*  */ 


/*  */ 

/*  NO. ..ANSWER  MUST  BE  VTA8   */ 

/*  ENTRY.  */ 

/*  */ 


/*  */ 

/*  MAKE  SURE  STATE  TABLE  WILL*/ 

/*  NOT  OVERFLOW  */ 

/*  */ 


i); 


/* 

/*  SET  UP  POINTERS  TO 
/*  SIMPLIFICATION  RULES. 
/* 


/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 


/* 


PROCESS  WHILE 

SIMPLIFICATION 

PRESENT. 


RULE  IS 


SET  UP  TO  COMPARE  RULE 
FORM  AGAINST  EXPRESSION 
ON  EXEC  STACK. 


*/ 
*/ 
*/ 
*/ 


*/ 

*/ 
*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 


*/ 


24? 


00    WHILE    I  NUMOP    <    DEGL )     L    MATCH; 
EXPNT    =    ETOP    -    NUMOP; 
RLPNT    =    RLPNT    +     I: 
DATA    =    OP    INFOCRLPNTl; 
I  NO    ■    DATA    G    "1"; 
ID#    =    SHR(OATA,     1)  ; 
IF     IND    THEN 


/*  LHtLK.  ItHt  U»-  ALL  UPtkANUb*/ 
/*  IN  EXEC  STACK  FUR  A  MATCH  */ 
/*  AGAINST  THE  SIMPLIFICATION*/ 
/*    RULE  */ 

/*  */ 


00; 


MATCH  =  FALSE} 

IND  =  GP_INFO(QPFORM) ; 


IF  EXCON( EXPNT)  £  (EXTYP 
DO; 


/*  IS  OPERAND  RULE  FOR  AN  */ 

/♦IDENTITY  CONSTANT  */ 

/*  YES  */ 

/*  IS  EXEC  STACK  OPERAND  A  */ 

/*  CONSTANT  AND  OF  PROPER  */ 

/*  TYPE  FOR  EXPRESSION.  */ 
E(EXPNT)  =  IND)  THEN 


[DENT ITY  IN  CONSTANT 


/* 

/*    YES. . .ADDRESS    OF    THE 
/* 
/* 
CONSADR    =     LOOKCONS(OP_STR(  ID#J , 

/* 
/* 
/* 
/* 
/* 
0)  L     (CONSADR 


IND) 


MATCH  IF 
EQUAL  TO 
THE  RULE, 


*/ 
*/ 

TABLE*/ 
*/ 


EXEC  CONSTANT 
THE  IDENTITY 


IS 

IN 


MATCH    =    (CONSADR    -*  = 


END; 


END;    ELSE 


IF    POSIT    <    ID#    THEN 
DO; 


POSIT    =    ID#; 
CALL    GET_EXECR; 
EXCON(ETLiPR)     =    EXCOfKEXP 
EXADO(ETOPR)     =    EXADD(EXP 
EXVAL#( ETOPR)     =    EXVAL#(E 
STATES(STLOC     i-     ID#)     =    ET 

END;  ELSE 

DO; 

MATCH  =  FALSE; 

STPNT    =    STATES(STLOC    +    I 


EXADO(EXPNT) ) 


*/ 
*/ 
*/ 
*/ 
*/ 


/* 
/* 
/* 
/* 
/* 
/* 


/* 


*/ 

NOT  A  CONSTANT,  IE. . .  */ 
MUST  BE  VARIA8LE  OPERAND.  */ 
ALWAYS  TRUE  AT  LEAST  ONCE  */ 
ASKING  HAS  EXEC  STACK  BEEN*/ 
SAVED.  */ 


*/ 

/*  NO. ..SAVE  EXEC  STACK  */ 
/*  ELEMENT  AT  TOP  OF  EXEC  STK*/ 
/*  */ 


IF  EXVAL#(STPNT)  =  EXVAL 

MATCH  =  TRUE; 

ELSE 


IF    EXCON(EXPNT)     1     EXCON( 
DO; 


IF  EXADD(STPNT)  -.=  E 
00; 


NT)  ; 

NT): 

XPNT 

); 

OPR; 

D<¥); 

/* 

/*IS 

THE 

/*T0 

THE 

/* 

#(expnt; 

THEN 

END; 


end; 


EXCON(STPNT) 
EXA3>0(STPNT) 


*/ 

SAVED    VARIABLE     EQUAL*/ 
RESULT    VARIABLE  */ 

*/ 


/*  */ 

/*    ARE    EITHER    CURRENT    OR  */ 

/*    SAVED    OPERANDS    CONSTANTS  */ 

/*  */ 
STPNT)    THEN 

/*  */ 

/*  YES.. .THE  SAME  CONSTANT  */ 

/*  */ 

XADD( EXPNT)  THEN 

/*  */ 

/*    NO. ..CLEAR    THE    CONSTANT  */ 

/*    ENTRY     IN    THE    SAVED    ENTRY  */ 

/*    IE. .VARIABLE    OPERAND  */ 

/*  */ 


END; 


NUMOP    =    NUMOP    f     l; 


/*  */ 

/*    ADVANCE    COUNTER    AND    FORMAL*/ 
/*    TYPE     TO    SEARCH    FOR    THEN  */ 

/*    BAC*    FOR    NEXT    OPERANO  */ 

/*  */ 
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UHi-UKm   =    UKi-uKn    ♦    i; 


END; 

CONSADR    =    RLPNT; 


IF    MATCH   THEN 


RLPNT    =    0;     ELSE 

oo; 


IF    COMOP    THEN 

oo; 


OPADR    =    AQDiUOP    INF0( 
FIRST  PERM    =     PERflUTEtD 
IF    FIRSTPERM    THEN 
RLPNT    =    SAVRLPNT; 
ELSE 
DO; 

FIRSTCALL    =     TRUE; 

RLPNT  =  TYP; 
•  END; 
END; 


ELSE 
DO; 


END; 


RLPNT  =  TYP; 
FIRSTCALL  =  TRUE; 


IF  TYP  =  RLPNT  THEN  TYP 


ENO; 


end; 

rlpnt  =  consadr; 

if  match  then 


do; 


0PTIM_TYPE(M_C0NTR0L)     =    "l"i 


RLPNT    =    RLPNT    *    1; 
RESTYP    =    OP     INFO( RLPNT) ; 
RESPNT    =    RES"TYPE; 
IND    =    RESTYP    £    "I ": 
RESTYP    =    SHRIRESTYP,     1) ; 


/*  */ 

/*  END  OF  (  NUMOP  <  DEGL)  &    */ 

/*  MATCH.  *, 

/*  *, 


/*  *t 

/*  WAS  A  MATCH  FOUND          *, 

/*  *, 

/*  *, 

/*  YES. ..CLEAR  SIMPLIFICATION*, 

/*  POINTER.  *, 

/*  *• 


/*  *, 

/*  NO..  .  IS  OPERATOR  *< 

/*  COMMUNITIVE  *, 

/*  *i 


/*  ** 

/*  ♦ 

/*  YES.  .  .LETS  TRY  A  *', 

/*  PERMUTATION.  *, 

SAVRLPNT  +  1)); 

EGL.  OPADR,  2,  TRUE); 

/*  WAS  PERMUTATION  POSS  */ 

/*  YES.. .SET  FOR  SAME  RULE  *. 

/*  NO. ..ADVANCE  TO  NEXT  RULE  *. 


/*  */ 

/*  OPERATOR  IS  NOT  COMMUNITIV*, 
/*  *. 


/*  */ 

/*  IF  NEW  RULE  SELECTED,  *, 

/*  RESET  NEXT  RULE  POINTER.  */ 

OP_INFO(RLPNT) ; 

/*    BACK     TO    TEST    FOR    NEXT    RULE*' 

/*    OR    TEST     A    PERMUTATION    FOR  */ 

/*    A    COMMUNITIVE    OPERATOR  *t 

/*    AGAINST    SAME    RULE.  *, 

/*    END    OF    RLPNT    ->=    0  *! 

/*  WAS  A  SIMPLIFICATION  RULE  */ 

/*  MATCHED.  *t 


/*  */ 

/*  YES.. .CHECK  THE  RESULTANT  *, 

/*  TYPE,  ETC.  */ 

/*  *i 


IF  IND  THEN 
DO; 


/*  SHOULD  THE  RESULT  BE  AN 
/*  IDENTITY 


/* 


*y 
*i 


consadr  =  lookcons(op  str 
if  consadr  =  0  then  ~ 
do; 


CALL  ENTERCONStOP  STR 
CONSADR  =  CONLOC;" 


.  */ 

/*  YES. ..IS  THE  IDENTITY  IN  */ 

/*  THE  CONSTANT  TABLES  */ 

/*  *i 
(RESTYP) ,  RESPNT); 


/*  NO.. .PUT  IDENTITY  IN       ** 

/*  CONSTANT  TABLE.             */ 

/*  */ 
(RESTYP),  RESPNT)* 


2^9 


end; 


ETOP  =  ETOP  «•  l; 
EXADD(ETOP)  =  CONSAOR; 
CALL  PROPAGATEIRESPNf,  0 
ETOP  =  ETOP  -  l; 
CONVAL(CONSADR)  =  GETVAL 


/*  PUT  IDENTITY  VALUE  ON  TOP  */ 
/*  OF  EXEC  STACK.  */ 

/*  */ 


#(COmpu) ; 
/* 


eno; 

ELSE 


V    > 
EA 


CONVAL(CONSAOR) ; 
=    CONSADR; 


00; 

VALADR    =    STATESISTLOC    f    REST 
V    =    EXVALtf(VALADR) ; 
EA    =    EXAODI VALADR) ; 
END; 
END;     ELSE 

V,    EA    =   o; 
ETOPR    =    EXTOP; 
END    SIMPLIFY; 

/*<><><><><><><><>< ><><><><><> 
/* 

CONSTANT    CLASS 
THIS    ROUTINE     IS    ENTERED    IF 
MATCHES    A    PREVIOUS    CLASS. 
IS    MARKED    AS    OPTIMIZED    AND 
IS    OBTAINEO. 


YP); 


/* 
/* 
/* 
/* 
/* 
/* 


/*<><><><><><><><><><><><><><> 

CONSTANT_CLASS:  PROCEDURE; 

V  =  GETVALtf(COMPU) ; 

VTAB(A  -  OEGL)  =  M  CONTROL; 

A    =    A| SHL     (1,     15); 
END    CONSTANT_CLASS; 


taddloc=addloc; 
#xits=o; 


DO    WHILE    M    CONTROL    <    CODELOC;' 
M_CONTROL    =    M_CONTROL    +    Li 


CODE    =    CSFCODE(M_CONTROL) ; 

IF    TRACETCG    THEN 

CALL     DECODEIM    CONTROL,    CODE,     'B^); 

OP,     TYP    =     SHRfCODE,     16)     C     "FF"; 

OPERTR    =    OP; 

C    =     SHRICODE,     15)     C    "1"; 

A    =    CODE    L    "7FFF"; 

ALTEX    =    Li 


IF    OP    =    TOGGLE    THEN 
DO; 

J    =    SHRIA,    8); 

I     =    (A    G    "FF")    -    lj 

IF     (I     <=    STOGS)    L    (I    >=    0)    THEN 

TOGGLES(l)     =    J; 
END;     ELSE 
IF    TYP    <=    NTYPES    THEN 


/*  SET  VALUE  H    BY  CONSTANT 

/*  TABLE. 

/* 


/*    RESULT    IS    NOT    A    CONSTANT 
/*    IDENTITY. 


/*    NO    MATCH,     IE. ,     NO 

/*    SIMPLIFICATION    DETECTED. 


<><><><><><><>*/ 
*/ 
*/ 

AN    EXPRESSION    */ 

THE    CODEWORD       */ 

A    VALUE    NUMBER*/ 

*/ 

*/ 


/* 

/*  ACTUAL  BEGINNING  OF  BASIC 

/*  BLOCK. 

/*  SAVE  BEGINNING  ADDRESS 

/*  TABLE  POINTER  AND  CLEAR 

/*  NUMBER  OF  EXITS 

/* 


/* 


*/ 
*/ 
*/ 
*/ 


*/ 
*/ 


*/ 

*y 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


*/ 

/*    MASTER    CONTROL    LOOP    -  */ 

/*  PROCESS  UNTIL  ENT,  BRNCH  */ 
/*  OPERATOR  OR  END  OF  COOE  IS*/ 
/*    ENCOUNTERED  */ 

/*  */ 


/* 

*/ 

/* 

SET  VARIABLES: 

*/ 

/* 

CODE  =  RAW  CODE 

*/ 

/* 

OP, TYP  =  OP  CODE 

*/ 

/* 

C  =  CONSTANT  BIT 

*/ 

/* 

A  =  ADDRESS 

*/ 

/* 

*/ 

/* 

/*  TOGGLES  OPERATOR 
/*  TOGGLES  BY  A 
/* 


SET 


*/ 
*/ 
*/ 
*/ 


/*  TAG  OR  DATA  DECLARATION 


*/ 


2^0 


oo; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


NULL 

DfcFAULT 

LOC 

ENT 

XIT 

INT 

REAL 

BOOL 

IARRAY 

RARRAY 


N  =  o; 

IF  TYP  <=  XIT  THEN 

00  CASE  TYP; 

CALL  CERRORPTYPE  NU 
CALL  CERRORPTYPE  DE 


IAL  CASES 

.DEFAULT, LOC, ENT, X  IT 


LOC 
TYPE  CONSTANT 


IF  C  THEN 


V  =  o; 

ELSE 

DO; 


/*  SPEC 

/*  NULL 
LL  ENCOUNTERED1); 
FAULT  ENCOUNTERED'  )  ; 

/* 

/* 

/*  LOC 

/* 

/* 

/*  IS  THIS  A  CONSTANT 

/* 

/* 

/*  YES. .. 
/* 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
»/ 
*/ 
*/ 


*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 


IF  A  =  0  THEN 

CALL  CERRORPNULL  LOCATION  •) 


/*  NO.. 
/*  IN  A 


.IDENTIFIER  SHOULD  BE  */ 
DR  TABLE  */ 


END; 


I     =    LOOKADD(A) ; 
IF     I     =    0    THEN 

DO; 


CALL  ENTERADD(A); 

I  =  ADDLOC; 

ADDTYPEl I )  = 

ADDVAL(I)  = 

ADDCON(I)  = 

V,  ADDNAM(I) 
END; 
ELSE  V  =  ADDNAMt 


/* 
/* 
/* 

/* 
/* 


GO    FIND    IT 


*/ 
*/ 
*/ 


IDEMTIFIER    NOT    PREVIOUSLY    */ 
DEFII 


:ned 


/* 

/*    GET 
/*    IDENJ 
/* 


NULL; 
0; 
0; 

=    GETVALJt FORMAL! 


NEW    ADDRESS    FOR    THIS 
TIFIER 


*/ 

*/ 
*/ 
*/ 

*/ 


I) 


do; 


end; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

CALL  INSRT  SUC  BLOCKIM  CONTROL): 
RETURN; 

/* 
/* 
/* 
/* 
/* 
/* 
/* 


ENT 

SET 

THE 

FUTU 

BACK 


CALL  INSRT_SUC_BLOCK 
END;  ELSE 


IF    A    =    0    THEN 


(A); 


do; 

C  =  0; 

V  =    GETVAL/HCOMPU)  : 

N  =    GETVALtfl  FORMAL) ; 

END    ;  ELSE 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


XIT 

BLOC 
TABL 
WITH 


REFE 
DECL 
EXAM 
SET 

REFE 
TYPE 
PRES 


*/ 
ENT  */ 

TYPE  CONSTANT..  ENTER  */ 
NEW  BLOCK.  NUMBER  ON  */ 
CONTROL  TABLE  FOR  */ 
RE  PROCESSING  AND  EXIT*/ 
TO  CONTROL  FLOW.      */ 

*/ 


*/ 
XIT  */ 

TYPE    CONSTANT.. SET    NEW*/ 

K    NUMBER    ON    CONTROL  */ 

E    FOR    FUTURE    PROCESSING/ 

ENTRY    ADDRESS    A  */ 

*/ 


*/ 

RENCE     IS    TO    A    STANDARD*/ 
ARATION    -     BEGIN  */ 

[NATION    FOR    EXEC    STACK*/ 
UP.  */ 

*/ 

RENCE    TO     INDETERMINATE*/ 

-    I.E.,     NO    IDENTIFIER*/ 

ENT  */ 
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00  s 


C  = 

11 

V  = 

CONVAL(A) 

N  = 

0; 

END 

; 

IF 

TYP  ->=    XI  T  THE 

do; 


end; 
END; 

else 
do; 


CALL  GET_EXEC; 
I  =  ETOP: 
EXNAMJM I  5  =  N ; 
EXTYPEI I )  =  TYP; 
EXCONI  n  =  c; 
EXADD( I)  =  A; 
EXVAL/M  I  )  =  V, 


DEGL  =  OP  DEGL(OP) 
DEGR  =  OP_DEGR(OP) 


RETAIN  =  0; 


DO  CASE  OP_TYPE(OP); 


SIMPLEJDP: 

do; 


if  etop  <  degl  then 
do; 


CALL  CERRORI'NOT 

RETURN; 
END; 

FORM    =    0; 
SUBCASE    =    -l; 
RESTYPE    =    DEFAULT; 


FIRST    =    OP    INDEX(OP); 
LAST    =    OP_TNDEX(OP    *    I) 


/*    REFERENCE    TO    DEFINED  */ 

/*    IDENTIFIER  */ 

/*  */ 


/*  MAKE  AN  ENTRY  INTO  THE  */ 
/*  INTO  THE  EXEC  STACK.  IF  */ 
/*  OPERATOR  IS  NOT  XIT.       */ 


/* 

IF  TYPE  >  XIT,  DO 

*/ 

/* 

OPERATION  CODE  DETECTED 

*/ 

/* 

IF  THIS  POINT  REACHED 

*/ 

/* 

*/ 

/* 

SETUP  NUMBER  OF  OPERANDS 

*/ 

/* 

AND  NUMBER  OF  RESULTS 

*/ 

/* 

BY  OPERATOR  TYPE. 

*/ 

/* 

*/ 

/* 

RETA IN  USED  TO  INDICATE 

*/ 

/* 

IF  TOP  OF  THE  EXEC  STACK 

*/ 

/* 

IS  TO  BE  SAVED  UPON 

*/ 

/* 

COMPLETION  OF  INSTRUCTION 

*/ 

/* 

*/ 

/* 

*/ 

/* 

MASTER  CASE  ON  OPERATOR 

*/ 

/* 

BASED  ON  THE  OPTYPE  TABLE 

:*/ 

/* 

0  =  SIMPLIFICATION 

*/ 

/* 

OPERATOR 

*/ 

/* 

1  =  UNUSED 

*/ 

/* 

2  =  LOAD 

*/ 

/* 

3  =  STORE  AND  OELETE 

*/ 

/* 

TOP    OF  EXEC  STACK 

*/ 

/* 

t*    =    STORE  AND  RETAIN 

*/ 

/* 

TOP  CF  EXEC  STACK 

*/ 

/* 

5  =  DELETE 

*/ 

/* 

6  =  DUPLICATE 

*/ 

/* 

7  =  CONVERSION 

*/ 

/* 

B  =  COMMUNITIVE 

*/ 

/* 

9  =  EXCHANGE 

*/ 

/* 

ID  =  CONDITIONAL  JUMP 

*/ 

/* 

11  =  UNCONDITIONAL  JUMP 

*/ 

/* 

12  =  G0SU3 

*/ 

/* 

13  =  RETSUB 

*/ 

/* 

*/ 

/* 

*/ 

/* 

SIMPLIFICATION  OPERATOR 

*/ 

/* 

ALSO  USED  BY: 

*/ 

/* 

A. .C0NV(7) 

*/ 

/* 

B..C0MMI8) 

*/ 

/* 

CHECK  FORM  OF  EACH  OPERAND*/ 

/* 

*/ 

/* 

NUMBER  OF  OPERANDS  PROPER 

*/ 

/* 

AND  RESULT  TYPE  CORRECT 

*/ 

/* 

*/ 

/* 

*/ 

/* 

NO,  THEN  EXIT 

*/ 

/* 

*/ 

ENOUGH  OPERANDS' ); 

/*  */ 

/*  SET  POINTER  TO  OPERAND  */ 
/*  TYPES  IN  THE  OP_INFO  TABLE*/ 
/*  */ 


2<? 


00  WHILE  (FIRST  <  LAST)  £,  ( 
SUBCASE  =  SUBCASE  *  1; 
DEFTYPE  =  0; 

J  =  etop; 

FORM  =  FIRST; 

I  =  FIRST  *   degl; 


DO  WHILE  tFORM-.  =  0)  £  (F 
V  =  OH  INFOIFIRST); 

N  =  ExType  <  J) ; 

IF  V  =  DEFAULT  THEN 


/*  */ 

/*  L00<  FOR  PROPER  NUMBER  OF  */ 
/*  OPERANDS,  TYPE  OF  OPERANDS*/ 
/*    AND    TYPE    OF    RESULT.  */ 

/*  */ 

FORM   =    0) ; 


/*  */ 

/*  CHECK    TYPE    OF    ALL    OPERANDS*/ 

/*  BY    OPERATOR                                           */ 

/*  */ 

IRST  <   I) ; 


DO; 

IF    DEFTYPE    =    0    THEN 
DEFTYPE    =    N;     ELSE 

DO; 

IF  DEFTYPE  -•=  N  THEN 
FORM  =  o; 
END; 
END;  ELSE 
DO; 


/*  TYPE  NOT  IMPORTANT  FOR 
/*  OPERATOR 


*/ 
*/ 


END; 


IF  -  ( (V  =  N)  | 

FORM  =  0; 


FIRST  =  FIRST  +  i; 
J  =  J  -  l; 


END; 


FIRST  =  I  +  DEGR; 
END; 
IF  FORM  =  0  THEN 


FORM  =  OP_INQEX(OP) ; 
IF  DEGR  >  0  THEN 


/*  CHECK  FOR  FORM  OF  RESULT 
/*  AGAINST  THE  OPERAND. 
(N  =  NULL) )  THEN 


/* 

/*  ADVANCE  TO  NEXT  OPERAND 
/* 


/* 

/*  SET  IN  NUMBER  OF  RESULTS 

/*  FOR  OPERATOR 

/* 


*/ 
*/ 


*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 


DO; 


RESTYPE  =  OP_INFO(FORM 
IF  RESTYPE  =  DEFAULT  TH 
RESTYPE  -  DEFTYPE; 


END; 


EA  =  0; 

Jt  V,  N  =  0; 

C  =  SHR(CODE,  15)  &  "I"; 


IF  TYP  -=  PASS  THEN 
DO; 

IF  A  -=  0  THEN 

DO; 

NUMOP  =  DEGL; 
COUNT  ■  o; 
J  =  o; 


DO  WHILE  NUMOP  >  0; 
NUMOP  =  NUMOP  - 


/*  FORM  =  0  SAYS  OPERATORS  OK*/ 
/*  SO  SET  IT  TO  POINT  TO  THE  */ 
/*  PROPER  TYPES  IN  OP  INFO  */ 
/*  FOR  THE  OPERATOR.  */ 

/*  NOW  LOOK  AT  RESULTANT  TYPE*/ 
/*  SET  IT  ACCORDING  TO  OP_INF*/ 
/*  OR  IF  NOT  IMPORTANT  BY  THE*/ 
/*  OPERAND  TYPE  */ 

♦  DEGL  *  DEGR  -  1); 
EN 


/*  */ 

/*  END  OF  CHECK  FOR  THE       */ 

/*  CORRECT  FORM  */ 

/*  */ 


/*  */ 

/*  HAS  THE  OPERATION  ALREADY*/ 

/*  BEEN  DEFINED  */ 

/*  */ 


/*  */ 

/*  YES.. .CHECK  EACH  OPERAND  */ 
/*    TO    SEE     IF     IT    HAS    BEEN  */ 

/*  CHANGED  SINCE  THE  PREVIOUS*/ 
/*  CALCULATION  WAS  PERFORMED  */ 
/*  */ 

l; 
/*  */ 

/*  GET  OPERAND  VALUE  §  */ 

/*  I.E.i  THE  VALUE  ASSIGNED   */ 
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/*  IU  1Mb  lUbNI  IHtK  */ 

/*  */ 

V  =  EXVAL/METOP  -  NUMOP) ; 

/*  */ 

/*  COMPARE  THE  NEW  VALUE*     */ 

/*  AGAIMSr  THE  OLD  EXPRESSION*/ 

/*  */ 


N  =  A  -  J; 
IF  VTAO(N)  = 
COUNT  =  COUN 
ELSE 


V  THEN 

T  *■   1; 
/* 


VTAB(N)  =  V; 

j  =  j  ♦  1; 


/*  SET  IN  NEW  VALUE  ft    FOR 
/*  OPERANO  IF  CHANGED 
/* 


*/ 
*/ 
*/ 
*/ 


END; 


J    =    COUNT    =    DEGL 
SUBEXP    =     ( OPTIM_ 

(OP  TIM 
IF    <-*    J)     L    SUBEX 
OPTIM_TYPE(M_CON 

I ,  v  =  o; 

N  =  A  &  "7FFF"; 


/*  */ 

/*  IF  AN  OPERANO  HAS  CHANGED  */ 

/*  AND  THE  OPTIM  WAS  A  COM    */ 

/*  SUB  ELLIM  THEN  RESET  IT  TO 

/*  BE  NOT  OPTIMIZED. 
/*  */ 

TYPE(M_CONTROL)  =  "3")  I 
TYPE! M_CONT*OL)  =  "V) ; 
P  THEN 
TROD  =  "0"; 


SEE  IF  AN  IDENTICAL 
EXPRESSION  EXISTS  IN  THE 
VALUE  TABLE 


I  =  LOOKUPVIOP, 

IF  I  >  0  THEN 
DO! 


/* 
/* 

/* 
/* 
/* 

COMPU,  VTOP) ; 
/* 
/*  YES. . .SET  IN  THE  NEW 

/*  EXPRESSION  RESULT  INTO 
/*  THE  OLD  EXPRESSION  ENTRY 
/*ANO  ^!ARK  AS  COMM  SU3  ELIM 


OPTIM_TYPE(M 
A  =  A  |  SHL( 
VPOINT  =  I  *• 
Vt  VTABIN  - 

END;  ELSE 

DO; 


CONTROL) 

T,  15); 

DEGL  +  2 
DEGL  -  1) 


VTAB(VPOINT) ; 


/* 


IF  C  I    J  THEN 


V  =  VTABIN  - 
ELSE 


/*  NO. .HAS  THE  EXP  ALREADY 

/*  BEEN  PROCESSED  AND  NO 

/*  OPERANDS  HAVE  CHANGED 
/* 

/* 

/*  GET  THE  OLD  RESULT  VAL# 
/* 
DEGL  -  I); 

/* 

/*  NO.. GET  A  NEW  VALUE  It 
/*  AND  MAPK  AS  PROCESSED 
/* 

CALL  CONSTANT_CLASS; 
/* 

/*  CHAIN  NEW  VALUE  TABLE 
/*  ENTRY  TO  SAME  CLASS  AND 
/*  SET  IN  RESULT  VALUE  U 
/* 

I  =  REENTERVIOP,  COMPU); 

VPOINT  =  I  *■    DEGL  +  2; 

VTAB(VPOINT)     =    V; 
END; 

I  =  v; 
V  =  0; 


IF  PROPTOG  THEN 


CALL    SIMPLIFY; 


*/ 
*/ 
*/ 
*/ 
*/ 

*/ 
*/ 

*/ 
*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 

*/ 

*/ 
*/ 


*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 


/* 
/* 

IS  PROPAGATION  REQUESTED 

*/ 
*/ 
*/ 

/* 

/* 
/* 
/* 

YES. . .TRY  TO  PERFORM  A 
SIMPLIFICATION 

*/ 
*/ 
*/ 
*/ 

/* 

/* 

IF  THE  OPTIM  IS  COM  SUB 

*/ 
*/ 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 


tAK     ANU     INU     51I1HLIHLAI  1UN 

WAS  DETECTED.. .BYPASS 
CLEARING. 


IF  NEW 
SET  IT 


VALUE  #  ASSIGNED, 
INTO  VTA8 


IF  (V  =  OJ  £  (OPTIM_TYPE(M_CONTROL)  =  "3")  THEN 

V  =  I; 

ELSE 

DO; 

IF 

DO; 

OPTIM_TYPE(M_CONTROL)  =  "0"; 

V  ■  I; 
ENO; 

ENDr 

VTABIN  -  DEGL  - 
VTAB(VPOINT)  =  V 
SUBEXP  =  (OPTIM 
IOPTIM" 
IF  SUBEXP  THEN 
ADDCONI VPOINT)  = 

I,  n  =  o; 

END;  ELSE 

/* 


V  =  0  THEN 


1) 


v; 


type(m_control) 
.type(m_control) 

ea; 


"2")  | 

"4") ; 


IF  PASStf  =  1  THEN 
DO; 


NUMOP  =  oegl; 

COUNT  =  0; 

A  =  VTOPR  -  1; 


DO  WHILE  NUMOP  > 
N  =  DEGL  -  N 
NUMOP  =  NUMO 
NT  =  EXVAL#( 


/*  NO  ADDRESS  AVAILABLE. 

/*  CHECK  FOR  FIRST  PASS  THIS 

/*  BLOCK 

/* 


/* 

/*  YES CHECK  TO  SEE  IF  AN 

/*  OPTIMIZATION  IS  POSSIBLE. 
/*  BUILD  A  VTAB  ENTRY  FOR 
/*  THIS  EXPRESSION 
/* 


0; 

UMOP 
P  - 
ETOP 


IF  NT  i=  0  T 

do; 


COUNT  = 
CALL  GET 
VTABIVTO 
END; 
END; 

IF  COUNT  -.=  DEGL 
DO; 

VTOPR  =  A  <■ 
A  =  0; 
I  =  0; 
END;  ELSE 


HEN 


Li  , 

-  N); 
/* 

/*  CHECK  IF  VALUE  &    PRESENT 

/*  FOR  THE  OPERANDS  ON  THE 

/*  EXEC  STACK.   IE. ,  A 

/*  USEFUL  DATA  IN  OPERAND 

/*  CHECK. 

/* 


*/ 

*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 


*/ 

*/ 

*/ 

*/ 


*/ 
*/ 
*/ 
*/ 


/*  */ 

/*  SET  TO  TEST  ALL  OPERANDS   */ 
/*  */ 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


*/ 
*/ 

*/ 
*/ 
*/ 
*/ 


do; 


/* 

/*  YES. . .SET  INTO  TOP  OF 
/*  VALUE  TABLE.   IE.,  SAVED 
/*  OPTIMIZATION  INFORMATION 
/*  AREA. 
/* 

COUNT  *  1; 
VTOPR; 

PR)  =  NT; 


THEN 
1  *  DEGL; 

/*  */ 

/*  DID  ALL  OPERANDS  HAVE  */ 

/*  A  VALUE  #... INDICATES  ALL  */ 

/*  OPERANDS  ARE  USEFUL  -  NOW  */ 

/*  CHECK  FOR  A  COMMON  */ 
/*  SUBEXPRESSION  ELIMINATION.*/ 

/*  */ 

/*  */ 

/*  YES. ..SEE  IF  A  VALUE  TABLE*/ 

/*  ENTRY  EXISTS  THAT  IS  */ 

/*  IDENTICAL  */ 

/*  */ 
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LALL  btl  VIUPK; 

I  =  lookOpviop,  compu,  vtop); 

/*  */ 

/*  YES. .  .IDENTICAL  ENTRY      */ 
IF  I  >  0  THEN 
DO; 

/*  */ 

/*  EXISTS  -  GET  THE  VALUE  #  */ 
/*  OF  ITS  RESULT  AND  MARK  */ 
/*  THIS  INSTRUCTION  AS  A  */ 
/*  COMMON  SUBEXPRESSION  */ 
/*  ELIMINATIUN.  */ 

/*  */ 

VPOINT  =  I  ♦  DEGL  +  2; 

A  =  A  |  SHL(  I,  15); 

V  =  VTABl VPOINT) ; 
OPTIH_TYPE(M_CONTROL)  =  "3"; 

END;  ELSE 

do; 

/*  */■ 

/*  NO. .GET  A  NEW  VALUE*  ,  SET*/ 
/*  OPTIM  BIT  AND  BUILD  A  NEW  */ 
/*  EXPRESSION  ENTRY.  */ 

/*  */ 

RESIND  =  COMPU; 

HASHADR  =  HASHVIOPERTR,  COMPU); 

EADR  =  ETOP; 

V  =  GETVAL#( COMPU) ; 
A  =  A  |  SHL( Li  15); 
I  =  ENTERV; 

VPOINT  =  I  t  DEGL  *  Z\ 
VTAB(VPOINT)  =  V; 
END; 

/*  */ 

/*  SET  LOCATION  INTO  TOP  OF  */ 
/*  VTA3.  */ 

/*  */ 

VTAB(VTOPR)  =  M  CONTROL; 
I  =  v; 

CALL  GET_VTOPR; 
V  =  o; 


IF  PROPTOG  THEN 


CALL  SIMPLIFY; 


/*  */ 

/*  CHECK  FOR  PROPAGATION      */ 

/♦REQUESTED  */ 

/*  */ 

/*  */ 

/*  YES... TRY  TO  PERFORM  A     */ 

/*  SIMPLIFICATION  */ 

/*  */ 


END; 


/*  */ 

/*  SAVE  THE  RESULT  VALUE*     */ 
/*  */ 

IF  (V  =  0)  £1  (OPTIM_TYPE(  M_CONTROL)  =  "3")  THEN 
V  -  It 
ELSE 
DO; 

IF    V    =    0    THEN 
DO; 

OPTIM    TYPE(M_CONTROL)     =    "0"; 

v  =  I; 
END; 
END; 

VTAB(VPOINT)  =  V; 

VTAB(VTOPR)  =  V; 

SUBEXP  =  (OPTIM_TYPE(M_CONTROL)  =  "2")  | 

(OPTIM_TYPE(M_CONTROL)  =  "4"); 
IF  SUBEXP  THEN 
ADDCON(VPOINT)  =  EA; 


END;  ELSE  /*  PASS*  IS  NOT  EQUAL  TO  I    */ 

DO; 

A  =  o; 
I  =  o; 
V  =  o; 

END; 

N    =    0;  /*    SET     IN    THE    ADDRESS    OF    VTAB*/ 

/*    CONTAINING  OPA  */ 

/*  OPB  */ 

/*  OPTIM    ADR      */ 

/*  RESULT  */ 

/*  SET  A  INTO  CODE  FILE.  THIS*/ 
/*  IS  THE  POINT  OF  MARKING  */ 
/*    OPTIMIZATION    FOR    LATER  */ 

/*    DETECTION.  */ 

CSFCODEIM    CONTROL)     =     (CODE    d    "FFFF8000")     I     A; 

N    =    A    f,    "7FFF"; 
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lr-     UPIIM     fYPttM    LUNIKUD     -•=    "I"     THEN 

CALL    SET_OPTIM_COC(NJ ; 

ELSE 

oo; 

IF  N  -=  0  THEN  . 
00; 

N  =  N  -  DEGL  ; 

VTAO(N)  =  M  CONTROL; 
END; 


END; 

N  =  o; 


ETOP  =  ETOP 
IF  DEGR  >  0 


-  DEGL 
THEN 


oo; 


/* 
/* 
/* 
/* 
/* 

/* 
/* 


NOW  REDUCE  THE  EXEC  STACK 
ACCORDING  TO  THE  #  OF 
OPERANDS 


BUILD  AN  EXEC  STACK  ENTRY 
FOR  THE  RESULT 


*/ 

*/ 
*/ 
*/ 
*/ 

*/ 
*/ 


TYPE1_0P 


END; 


END; 


END; 


I,  ETOP  =  ETOP  4-  1; 
EXCON(  I  )  =  EA  -.=  0; 
EXTYPE (  I  )  =  RESTYPE 
EXADOI  I  )  =  EA; 
EXVAL#< I )  =  v; 
EXNAM/H  I  )  =  0; 


/*  END  OF  SIMPLE  OPERATOR 


CALL  CERRORI 'UNDEFINED  OPERATOR 


*/ 

*/ 
*/ 


LODOP: 


DO; 


IF  EXTYPE(ETOP)  -=  LOC  THEN 
DO; 

CALL  CERRORC  ATTEMPT  TO 

RETURN; 


/*  TYPE  1  OPERATOR  NOT  USED 
/* 
TYPE  -  TYPE  !• ); 

/*  */ 

/*  CASE  2  LOAD  OPERATOR       */ 

/*  MUST  BE  LOCATION  TYPE      */ 

/*  VARIABLE  ON  THE  TOP  OF  THE*/ 

/*  EXEC  STACK  TO  ALLOW  A  LOAD*/ 

/*  FROM  THE  ADDRESS  ON  TOP    */ 

/*  OF  STACK.                   */ 

/*  */ 


LOAD  FROM  NON-LOC  TYPE').' 


END; 

A  = 
IF  E 

00; 


EXADDIETOPJ ; 
XCON(ETOP)  THEN 


END; 
DO; 


V  =  CONVAL(A); 
C  =  TRUE; 
TYP  =  CONTYPE(A) ; 
ELSE 


/* 
/* 

/* 
/* 
/* 
/* 
/* 


CHECK  FOR  VALUE  IN  THE 
CONSTANT  TABLE 


YES. .  .SET  VARIABLES  TO 
INDICATE  CONSTANT  TO  BE 
LOADED 


*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 


I  =  LOOKADD(A) ; 
V  =  ADDVAL(  I); 
IF  C  THEN 


V,  ADDVAL(I)  =  GETVALtftC 

ELSE 

IF  V  =  0  THEN 


oo; 


v,   addval(i)   =  getva 
csf:ode(m_controd   = 


end; 


/* 

*/ 

/*  NO.. .FIND  IDENTIFIER  IN 

*/ 

/*  ADDRESS  TABLE 

*/ 

/* 

*/ 

/*  CHECK  FOR  PREVIOUSLY 

*/ 

/*  ASSIGNED  CLASS  NUMBER. 

*/ 

/*  YES. . .MARK  LOCATION 

*/ 

OMPUJ ; 

/*  NO. ..CHECK  FOR  VALUE  » 

*/ 

/*  ASSIGNED 

*/ 

/* 

*/ 

/*  NO.. .ASSIGN  BY  CODE 

*/ 

/*  LOCATION  AND  FLAG  THE  CODE*/ 

/*  FILE 

*/ 

/* 

*/ 

L#(COMPU); 

(CODE  I     "FFFFOOOO")  ISHLI  It 

15) ; 

/* 

*/ 

/*  MAY  WANT  TO  PUT  TYPE  IN 

*/ 

/*  THIS  FIELD  LATER. 

*/ 

/* 

*/ 
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eno; 


TYP  =  ADDTYPE( I) 
A  =  ADDCONl I); 

c  »  A  1=  o; 


/*  */ 

/*  MARK  TYP  AND  A  FROM  ADORES*/ 
/*  TABLE  AND  SET  C  BY  VALUE  */ 
/*  TABLE  PRESENT  OR  NOT  */ 
/*  */ 


END; 


EXNAMtf(ETOP) 
EXCON( ETOP) 
EXTYPE(ETOP)  =  TYP; 
EXADD(ETOP)  =  A; 
EXVALtf(ETOP)  =  V; 


=    EXVAL/METOP) 
Ci 


/* 

/* 
/* 
/* 
/* 
/* 


SET    TOP    OF    EXEC    STACK    TO 
LOAD    EITHER    CONSTANT    OR 
VALUE    AS    PREVIOUSLY 
DETERMINED 


STOREOP! 


/* 

/*    CASE     3    STORE    OPERATOR 
/*    CAUSES    SECOND    OPERAND 
/*    ON    STACK    TO    BE    STORED     IN 
/*    LOCATION    SPECIFIED    BY 
/*    ADDRESS    UN    TOP    OF    STACK. 
/* 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


DO; 


/*  */ 

/*  TOP  OF  EXEC  STACK  MUST  BE  */ 
/*  LOC  */ 

/*  */ 

IF  EXTYPEIETOP  -  1)  -=  LOC  THEN 

DO; 

CALL    CERRORi  "ATTEMPT     TO    STORE     INTO    NON-LOC    VARIABLE' )*, 
RETURN; 

END; 

A  =  EXADOIETOP  -  I); 

/*  */ 

/*  IF  NO  ADDRESS,  ASSUME  AN   */ 
/*  ARRAY  SUBSCRIPT  */ 

/*  +  /' 

IF  A  =  0  THEN 

do; 

call  cerrorc  array  stores  not  implemented  in  csf «  )  ; 

RETURN; 
END; 

/*  */ 

/*  FIND  ADDR  TABLE  LOCATION   */ 


I  =  LOOKAODU)  ; 


/* 
/* 


/*  NOT  IN  ADDRESS  TABLE 
/* 
IF  I  =  0  THEN 
DO; 

CALL  ERROR( 'ADDRESS  TABLE  ERROR  (2)',  2); 
RETURN; 


END; 

IF  I  <=  TADDLOC  THEN 

DO; 


N  =  ADDNAMI I); 

CALL  ENTERADD(A); 

I  =  ADDLJC; 

ADDNAMI I )  =  N; 
END; 

N  =  ETOP; 
ALTAD  =  l; 
IF  EXCON(N)  THEN 
DO; 

J  =  EXADD(N) ; 
ADDCONl I)  =  J; 
ADDVAL(I)  =  EXVAL#(N); 
ADDTYPEI I )  =  CONTYPE (J) ; 
ADDNAM( I  J  =  0; 
END;  ELSE 


/*  ADDRESS  SET  IN  ANOTHER 
/*  BBLOCK 

/* 


/*  ENTRY 
7* 


DO; 


ADDCONl I)  =  0; 


/*  CONSTANT  ASSIGNMENT 
/*  SET  ADDRESS  TABLE  FROM 
/*  CONSTANT  TABLE 


/*  NOT  A  CONSTANT 

/*  SET  ADDRESS  TABLE  FROM 

/*  EXEC  STACK 


*/ 

*/ 

*/ 
*/ 


*/ 
*/ 

*/ 

/*  BUILD  A  NEW  ADDRESS  TA8LE  */ 


*/ 
*/ 


*/ 
*/ 
*/ 


*/ 
*/ 

*/ 
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AUUVftLUI      =     tAVALfflNIt 

ADDTYPE(  I )     =    EXTYPE(N)  ; 

AODNAM(I)     =    EXNAM/HN); 
END; 

IF    RETAIN    THEN 
00; 


ETOP    =    ETOP 
EXCON(ETOP) 

EXTYPE( FTOP) 
EXAOD(ETOP) 
EXVAL/M  ETOP) 
EXNAMtf(ETOP) 


-  l; 

=  EXCON(N); 
=  EXTYPE(N) 

=  EXADU(N)  ; 
=  EXVAL/MN) 
=  EXNAM/MN) 


END; 


END; 
ETOP 


ELSE 

=  ETOP  -  2! 


STO_RET_OP; 


00; 


END; 


RETAIN  =  TRUE; 
GO  TO  STORE_OP; 


DEL_OP: 


DO; 


END; 


IF  E 
CALL 
ELSE 
ETOP 


TOP  <=  0  THEN 
ERROR( 'EXECUTION  TABLE 

=  ETOP  -  is 


DUP  OP: 


DO; 


END; 


CALL  GET_EXEC 
I  =  ETOP  -  t ; 
EXCON(ETOP)  = 
EXTYPE( ETOP) 
EXADOIETOP)  = 
EXVALtf(ETOP) 
EXNAM#(ETOP) 


CONVOP: 


COMM_OP: 


EXCHG_OP: 


GO  TO  SIMPLE_OP; 


GO    TO    SIMPLE_OP; 


DO; 


/* 
/* 
/* 


/* 
/* 
/* 
/* 


/* 
/* 
/* 


IF  STACK  TOP  IS  TO 
RETAINED,  HOVE  THE 
ENT*Y  DOWN  ONE 


BE 

*/ 

LAST 

*/ 

*/ 

NO.. 
BY  2 


DECREMENT  STACK  TOP 


CASE  4  STORE  AND  RETAIN 


/*  SIMPLY  SET  RETAIN  FLAG 
/*  AND  USE  STORE  CODING 


/* 

/*  CASE  5  DELETE 

/*  SIMPLY  DELETES  THE  TOP  OF 

/*  EXEC  STACK 

/* 


UNDERFLOW 


1) 


/*  CASE  6  DUPLICATE 

/*  DUPLICATES  THE  TOP  ENTRY 

/*  ON  THE  EXEC  STACK 

/* 


EXCON(I) ; 

=  EXTYPEI  I )  ; 

EXADDl I) ; 

=  EXVAL/M  I  )  ; 

=  EXNAM#( I ) ; 

/* 

• 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

CASE  7  CONV 
A  TYPE  CONVERSION  IS 
POSSIBLE.  HANDLED  IN 
SIMPLIFICATION  CODING 


CASE  3  COMMUTATIVE 
A  COMMUNITIVE  OPERATOR  IS 
PRESENT  HANDLED  IN  SIMPLE 
OPERATOR  CODING 


CASE  9  EXCHANGE 
EXCHANGES  THE  TOP  2 
ENTRIES  ON  THE  EXEC  STACK 


*/ 
*/ 
*/ 


*/ 
*/ 
*/ 


*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 


I  =  ETOP  -  I | 
IF  I  <=  0  THEN 
DO; 

call  cerrorc  exchange  causes  underflow); 

return; 
END; 

J    =    EXCON(ETOP) ; 
EXCONI ETOP)     =    EXCONI 15 ; 
CXCON( I )    =    j; 


*/ 

*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 


*/ 

*/ 
*/ 
*/ 
*/ 
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end; 


J    *     tAI YHtl fclUKI i 

EXTYPE(ETOP)     =    EXTYPEII) 

EXTYPEI I )  =  J: 

J  =  EXADO(ETOP) ; 

EXADD(ErOP)  -  EXADD(I); 

EXAODI I )  =  J; 

J    =    EXVAL/HETOP); 

EXVAL/METOP)     =    EXVAL#(I) 

EXVAL#( I )     =    J; 

J    =    EXNAM#(ETOP) ; 

EXNAM#<ETOP)     =    EXNAM0U) 

EXNAMtfl I)    =    J; 


COND.OP: 


/* 

*/ 

/*  CASE  10  CONO 

*/ 

/*  CONDITIONAL  BRANCH 

*/ 

/* 

*/ 

DO; 


UCCND_OP 


END; 


RETURN; 


IF    BRANCHTOG    THEN 

00; 


IF  EXCON(ETOP)  THEN 
CALL  PROPAGATEIOP,  0 

END; 

ETOP  =  ETOP  -  1; 
RETURN; 


/* 
/* 
/* 
/* 
/* 
/* 


IF    TOP    OF    EXEC    STACK     IS 
CONSTANT    GET    RIO    OF    FALSE 
BRANCH    BEFORE    EXIT    BASIC 
BLOCK 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


); 


GOSUB_OP: 


/* 

*/ 

/* 

CASE  11  UCONO 

*/ 

/* 

UNCONDITIONAL  BRANCH 

*/ 

/* 

*/ 

/* 

*/ 

/* 

CASE  12  GOSUB 

*/ 

/* 

BRANCH  TO  A  SUBROUTINE 

*/ 

/* 

JUMP  OUT  AFTER  SETTING 

*/ 

/* 

NEXT  BLOCK  ON  CONTROL 

*/ 

/* 

STACK 

*/ 

/* 

*/ 

do; 


END 


CALL    INSRT_SUC 
RETURN; 


,BLOCK(M_CONTROL    ♦    1) 


RETSUB.OP: 


END; 


RETURN; 


END; 


END; 


IF    ETOP    <    0    THEN 
DO; 

CALL    ERRORP  EXECUTION    STACK    UNDE 

RETURN; 
END; 

IF  TA8LET0G  THEN 
CALL  w_all; 


/*  CASE  13  PETSUB  */ 

/*  BRANCH  RETURN  FROM  A  SUBR  */ 
/*  TO  ORIGINAL  POINT  OF  GOSUB*/ 
/*  INVOCATION*  */ 

/*  */ 


/*  END  OF  ALL  OPERATOR  TYPES  */ 

/*  END  OF  ELSE  (TYP  >  XIT)  */ 

/*  */ 

/*  CHECK  THAT  EXEC  STACK  HAS  */ 
/*  NOT  BEEN  DECREMENTED  BELOW*/ 

/*  ZERO  */ 

/*  */ 


RFLOWS  1); 

/*  DUMP  TABLES  IF  SET 


*/ 


END 


RETURN 

f 

BASIC_ 

BLOCK; 

/*<><><><><><><><><>< ><><><><><><><><><><><>*/ 

/* 

*/ 

/* 

SET  UP  BLOCK 

*/ 

/* 

USING  THE  TOP  BLOCK  ON  THE 

CONTRO 

*/ 

/* 

ALL  TA3LES,  ETC.,  ARE  SET 

TO  BE 

ITS 

*/ 

/* 

CURRENT  OPTIMIZED  STATE. 

*/ 

/* 

ROUTINES  CALLED: 

*/ 

/* 

REMOVEV 

*/ 

/* 

REENTERV 

*/ 

/* 

ENTERADO 

*/ 

/* 

*/ 

/*  END  OF  THE  M.CONTROL  LOOP  */ 
/*  */ 

/*  THIS  RETURN  ONLY  USED  IF  */ 
/*  THE  ENTRY  CODE  FILE  IS  */ 
/*  EXHAUSTED  */ 

/*  */ 


/*<><><>  <><><><><><  xxrxx^o^^  ><">•-»  <"><"»<-%*/ 
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SET.UP   BLOCK:     PROCEDURE; 

DECLARE  (IiJfKiLtMl  FIXED; 
OECLARE  (U,V)  FIXED; 


ALTEX  =  Li 
ETOP  =  o; 


ALTVL  =  l; 
ALTAD  =  l; 
ADDLOC  =  0; 


CALL  REMOVEV(HASHBASE) ; 

I  =  CSFCODEICURBLOCK)  £  "FFFF"; 

K  =  I  +  2; 

J  =  STATES(K)  ; 
K  =  K  +  l; 
I  =  K  +  J; 


DO  WHILE  I  >  K; 

I  =  I  -  l; 

J  =  STATESU)  £  "7FFF"; 

L  =  ADDRESS(J); 

IF  SHRIL,  15)  THEN 


DO; 


END 
IF 


DO; 


L  =  l  6  "7FFF" ; 

IF  ETOP  <=  L  THEN 

ETOP  =  L  +  1  ; 

L  =  MAXEXEC  -  L; 

EXTYPE(L)  =  ADOTYPE(J); 

EXVAL#(L)  =  ADDVAL(J) ; 

M  =  ADCCON(J); 

EXCON( LI  =  SHRIM,  15) ; 

EXADD(L)  =  M  6  "7FFF"; 

EXNAM#(L)  =  ADDNAMI J) ; 

ELSE 
.  =  0  THEN 


0  =  ADDTYPEl J); 
L  =  ETOP; 
V  =  AODVAL(J); 
J  =  ADDNAM(J): 
M  =  OP_D£GL(0) ; 
DO  WHILE  M  >  0; 

M  =  M  -  I; 

ETOP  =  ETOP  +    1; 

EXVALtf(ETOP)  =  VTABIJ) 

J  =  J  -  l; 

end; 


M  =  REENTERVIO,  COMPU) ; 
ETOP  =  L; 

M  =  M  f  2  *•  OP  DEGL(O); 
VTAB(M)  =  V; 
END;  ELSE 


/*  */ 

/*  FORM  POINTER  TO  STATES  */ 

/*  TABLE  CURRENT  BLOCK  */ 

/*  */ 


/*  */ 

/*  RESTORE  THE  ADORESS  TABLE  */ 

/*  FROH  THE  STATE  VECTOR  */ 

/*  */ 


/*  */ 

/*  REMOVE  ALL  VTAB  ENTRIES    */ 

/*  ABOVE  HASHBASE  */ 

/*  */ 


/* 

/*  REBUILD  THE  CURRENT 
/*  OPTIMIZE  STATE  FOR  THE 
/*  BLOCK. 
/* 


/*  EXEC  STACK  ENTRY 

/*  ADORESS  =  I  1  I  ETOP 

/*  PUT  THE  EXEC  STACK  ENTRY 

/*  AT  THE  TOP  OF  THE  EXEC 

/*  STACK  AREA. 


/*  VALUE  TABLE  ENTRY 

/*  ADDRESS  =  0 

/*  PUT  THE  ADDRESS  OF  THE 

/*  VTAB  ENTRY  ON  THE  EXEC 

/*  STACK. 


*/ 
*/ 
*/ 

*/ 


*/ 
*/ 
*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 


DO; 


/*  BUILD  A  VALUE  TABLE  ENTRY  */ 
/*  FOR  EACH  TYPE  OF  */ 

/*  EXPRESSION.  */ 


/*  */ 

/*  ADDRESS  TABLE  ENTRY  ;  */ 
/*  SIMPLY  RESTORES  THE  ADORES*/ 
/*  TABLE  FOR  THIS  BLOCK  */ 
/*  */ 


CALL  ENTERADD(L); 
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end; 


L  =  E 
M  =  H 
00    WH 

E 
E 
E 
E 
E 
M 
L 

end; 

END    SET_U 


END; 


AUUI TKtl AUULUtl 

ADPVALIADOLOC)  = 
ADDCON(ADULQC)  = 
AODNAM(ADDLCC)  = 


■■   auui  YHt<  J  i ; 

ADDVALl J  ; 
ADDCON( Ji ; 

ADDMAM(J) ; 


TOP; 

AXEXEC; 

ILE  L  >  o; 

XTYPE  (U  =  EXTYPE(H1  ; 

XVAL#  (L)  =  EXVALs!  (M)  ; 
XCON(L)=EXCON(M) ; 
XADD( L)=EXADU(M) ; 
XNAM*ML)  =  EXNAM# (Mil 

=  m  -  l; 
=  L  -  l; 

P_3L0CK; 

/* 


/*  *. 

/*  NOW  FILL  THE  EXEC  STACK  *. 

/*  MOVES  THE  EXEC  DATA  FROM  *, 

/*  THE  TOP  OF  EXEC  AREA  INTO  *, 

/*  WORKING  EXEC  STACK.  *. 

/*  *. 


THIS  RO 
CONTROL 
ADDRESS 


SWAP_BLOC 
DECLA 
T 
C 
C 
T 
S 
S 

END  SWAP_ 


ORDER  BLO 
DECLA 

DO  CA 
CANNONICA 


/* 
/* 
/* 
/* 
/* 

KS:  PROCEDURE  ( 
RE  (A,  B,  TEMFI 
EMFIX  =  CONTROL 
CNTR0LI8)  =  CON 
GNTRGL(A)  =  TEM 
EM3  =  SAV_TOG(B 
AV_TOG(B)  =  SAV 
AV_TOG<A)  =  TcM 
BLOCKS; 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

CK_LIST:  FROCEQ 
RF.  (CODEADR,  BL 
NUMSTATESB, 
SE  SELECT_FLAG; 
L: 


*/ 

S 

IES  IN  THE 
MOVED  ARE  AT 
ROL  STACK. 


*/ 
*/ 
*/ 

*/ 
*/ 


); 


mii  ku 
BY  Dirr 
DEPENDE 


ROUTINES 


SWAP  BLOCK 
UTINE  MOVES  THE"  ENTR 
LIST.   THE  ENTRIES 
A  AND  B  IN  THE  CONT 

A,  8) ; 

X)  FIXED,  TEM8  BIT(8 

(8)  ; 

TROL(A); 

Fix; 
); 

_T0GIA); 

s; 

<><><><><><><><><><><><><><><><><>*/ 

*/ 

ORDER  BLOCK  LIST  */ 

UTINE  SETS"  UP  THE  CONTROL  STACK  */ 

ERENT  ORDERING  ALGORITHMS  */ 

NT' UPON  SELECT_FLAG.  */ 

0  =  CANNQNICAL  (LIFO)  */ 

1  =  STEEPEST  DESCENT  */ 

(HEJRISTICALLY  THIS  IS  DONE  */ 

BY  TAKING  THE  BLOCK  WITH  THE  */ 

LEAST  #    OF  STATES  AND  MOVING  */ 

IT  TO  BE  PROCESSED  NEXT).  */ 

2  =    FIFO  */ 

3  =    SELECTS    THE    BLOCK    WITH    THE  */ 
MAXIMUM    CURRENT    STATE.  */ 

CALLED:  */ 

SWAP_BLOCKS  */ 

*/ 

STATEA,  STATEB,  NUMSTATESA, 
ATA)  FIXED; 


URE; 

KHDADRA,  BLKHDAORB, 
i,  L,  J,  K,  FOUND, D 


RETURN; 


STEEPEST_DESCENT: 
DO; 

IF    CTOP   <=    1    THEN 
RETURN; 


J  =   l; 

DO    WHILE    J    <    CTOP; 

CODEADR    =    CONTROL(J) ; 


/* 

/*    CANNONICAL    REQUESTED 
/*    CONTROL     STACK     IS    ALREADY 
/*    BUILT     PROPERLY     FOR    LIFO 
/* 


*/ 
*/ 
*/ 
*/ 
*/ 


/*  */ 

/*    STEEPEST    DESCENT    REQUESTED*/ 
/*  */ 


/* 

ONLY  ONE  ENTRY  ON  STACK 

*/ 

/* 

YES.  .  .EXIT  STACK  MUST 

BE  ' 

*/ 

/* 

RIGHT 

*/ 

/* 

*/ 

/* 

NO.. .SORT  STACK  INTO 

*/ 

/* 

DESCENDING  ORDER 

*/ 

/* 

*/ 

/* 

*/ 

/* 

GET  THE  STATE  POINTER 

*/ 

/* 

*/ 
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CUUt AUK 

BLKHDADR 

BLKHDADR 

CODEADR 

CODEADR 

BLKHDADR 

BLKHDADR 

STATEA  = 

STATEA  = 

STATES  = 

STATED  = 

STATEA  = 

STATEB  = 

NUMSTATE 

NUMSTATE 


=  LUUtAUK  t.  "/et-t-"; 
A  =  CSFCODE(CODEADR) ; 
A  =  BLKHDADRA  &  "7FFF"; 
=  CONTROL'!  J  ♦  1 ) ; 
=  CODEADR  &  "7FFF"; 
B  =  CSFCODE (CODEAORJ ; 
3  =  BLKHOADRB  &  "/FFF"; 

CSFCODE(BLKHDADRA)  ; 

STATEA  6  "7FFF"; 

CSFCODE(BLKHDADRB) ; 

STATEB  f.  "7FFF"; 

STATEA  t-    2; 

STATEB  «•  2: 
SA  =  STATES( STATEA) ; 
SB  =  STATES(STATEB) ; 


IF  NUMSTATESA  <  NUMSTATESB  THEN 

do; 

call  swap_blocks(  ji  j  <-  i); 
K  =  1; 
L  =  J; 


I  = 

DO 


J  -  i; 

WHILE  I  >  0; 
CODEADR  =  CONTROL ( I )5 
CODEADR  =  CODEADR  £  "7FFF"; 
BLKHDADRA  =  CSFCODE ( CODE  ADR ) 
BLKHDADRA  =  BLKHDADRA  &  "7FF 
STATEA  =  CSFC00E(3LKHDA0RA)  ; 
STATEA  =  STATEA  &  "7FFF"; 
STATEA  =  STATEA  ♦  2; 
NUMSTATESA  =  ST ATES I  ST  AT E A)  ; 
IF  NUMSTATESA  <  NUMSTATESB  T 
DO; 

CALL  SWAP_BLOCKS(I,  L) ; 

L  =  I; 

END; 

end; 
end; 
J  =  j 

end; 
end; 
FIRST  IN_FIRST_OUT: 
DO; 


IF  CTOP  <=  1  THEN 

RETURN; 

FOUND  =  FALSE; 

J  =  15 

DO  WHILE  -•  FOUND; 

DATA  =  C0NTROL( J) ; 


+  I 


IF 

-.(SHR(DATA,  31)  £ 

"1")THEN 

do; 

FOUNC 

K  = 

TRUE; 

DO 

WHILE  K; 

CALL  SWAP  BLOCKSU,  J  *■ 

IF  J  =  (CTOP 

-  1)  THEN 

K  =  FALSE; 

J  =  J  «■  l; 

END 

I 

end 

i 

j  = 

J  + 

l; 

IF 

J  >  = 

CTOP  THEN 

RETURN; 

s 

END 

; 

end; 

MAX. 

.POOL: 

do; 

IF 

CTOP 

<  = 

1  THEN 

RETURN; 

i); 


/* 
/* 
/* 


/* 
/* 
/* 


F"; 


HEN 


/* 

/* 
/* 


/* 

/* 
/* 
/* 


/* 

/* 

/* 


IN  DESCENDING  ORDER 


BU8BLE  B  TO  PROPER  PLACE 


*/ 
*/ 
*/ 


*/ 
*/ 
*/ 


END  WHILE  K 
END  FIRST  A  <  B 

DO  WHILE 
STEEPEST  DESCENT 


*/ 
*/ 

*/ 

*/ 


*/ 


IF  ONLY  ONE  ENTRY,  LIST  IS*/ 
ALREADY  GOOD  */ 

*/ 


*/ 

IS  BLOCK  GOOD  */ 

*/ 

YES...8UBBLE  BLOCK  TO  TOP  */ 


J  ■  1J 

DO  WHILE 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


ONLY  ONE  ENTRY  ON  STACK 
YES. .  .EXIT  STACK  MUST  BE 
RIGHT 

NO. ..SORT  STACK  INTO 
ASSENDING  ORDER 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


J  <  CTOP; 
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CODEA 
CODEA 
BLKHU 
BLKHU 
CCOEA 
CODEA 
BLKHU 
BLKHO 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
NUMST 
NUHST 
IF  NU 

00; 
C 
K 

L 


OR    = 
DR    = 

A  OR  A 
ADRA 
DR    = 
DR    = 
ADRB 
A  ORB 
A    =    C 
A    =    S 
B    =    C 
B    =    S 
A    =    S 
B    =    S 
ATESA 
ATESB 
MSTAT 


CONTROU  J) 
CODEADR  £ 
=  CSFCUDE( 
=  BLKHDADR 
CONTROL (J 
CODEADR  £ 
=  CSECDDH 
=  BLKHDADR 
SFf.OOEIBLK 
TATEA  L  "7 
SFC0DE(8LK 
TATEB  f>  "/ 
TATEA  ♦■  2; 
TATE8  +  2; 
=  STATES( 
=  STATES! 
ESA    >    NUMS 


/*    GET    THE    STATE    POINTER 


*/ 


ALL    SWAP_BLOCKS 

=  l; 
=  J; 


"7FFF"; 

CODEADR) ; 
A  6,  "7FFF"; 

f  N; 

"7FFF"; 

CODEADR) 5 
B  £  "7FFF"; 
HDADRA) ; 
FFF"; 
HOADRB) ; 
FFF"; 


STATEA) ; 
STATES) ; 
TATESB  THEN 

( J,  J  ♦  1) ; 


I  =  J  -  l; 

DO  WHILE  I  >  0; 

CODEADR  =  CONTROL!  I)  ; 
CODEADR  =  CODEADR  £  "7FF 
BLKHOADRA  =  CSFCUD EI  CODE 
BLKHDADRA  =  BLKHDADRA  L 
STATEA  =  CSFC3DE1BLKHDA0 
STATEA  =  STATEA  &  "7FFF" 
STATEA  =  STATEA  +  2; 
NUMSTATESA  =  STATEStSTAT 
IF  NUMSTATESA  >  MUMSTATE 

00; 

CALL    SWAP_BLOCKS( I , 
L   =    I; 


/*  BUBBLE  B  TO  PROPER  PLACE 
/* 


*/ 

*/ 
*/ 


F»; 

ADR )  ; 
"7FFF"; 
RA)  ; 


EA); 

SB    THEN 


D; 


END; 
END; 
J  =  J 


end; 
I 


=    1-1; 


*   1 


end; 
end; 
end; 
return; 

END    ORDER_BLOCK    LIST; 

/5<><><><> 

/* 

/* 

/*    1..M0VE 

/*  TOP 

/*  THE 

/*  BLOC 

/*  CLAS 

/*  NOTE 

/*  TO    A 

/*  ENTR 

/*  ADDiN 

/*    2..BUIL 

/*  AS    F 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  RETU 

/*    ROUTINE 

/* 

/* 

/* 

/* 

/* 

BUILD    INPUT_POOL:     PROCED 
DECLARE     (TOPADRt     STP 
CNT,     OPTYP, 


/*  END  W 
/*    END    F 

/*  00  rfH 
/*  MAX  P 
/*    OF    AL 


HILE    K 

T  r>  C  T       * 


ILE 
OOL 
L    CASES 


*/ 
♦/ 

*/ 

*/ 
*/ 


<><><><><><><><><><><><><><><><>< 


BUIL 
S  THE  ADD 
OF  THE  TA 
CURRENT  0 
K.  AN  EN 
S. 
:       IF    AN 

VTAB  (EX 
Y  IS  COPI 
AM  IS  SET 
DS  THE  ST 
OLLOWS: 
X 

X+l 
X  +  2 
X*3 


D_INPUT_POO 
R  TABLE  ENT 
BLE,  THE  SA 
PTIMIZEU  ST 
TRY  IS  MADE 

ADDRESS  ENT 
PRESSION) , 
EO  TO  TOP  0 
TO  POINT  T 
ATE  TABLE  F 


RIES  TO  THE 
VE  AREA  FOR 
ATE  FOR  EACH 
FOR  EACH 

RY  CORRESPOND 

THE  VTAB 

F  VTAB  ANO 

0  IT. 

OR  THIS  SLOCK 


0 
0 

NUMBER  OF 
ADDR  IN  TO 
OF  THE  VAL 
ENTRY,  IE. 
CLASS  ENTR 


ETC 
Xf  I 

RNS  ADDRESS  OF  X  -  2 
S  CALLED: 

GET_ST 

LOOKADD 

GET.ADDR 

GET_VTOPR 

URE  FIXED; 

NT,  VARCONINDi  ACTAD 

OPNT,  NAMPNT)  FIXED; 


>*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
S*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/. 

*/ 
<><><><><><><>*/ 

R,    CONS,    VALUE,    VALPNT, 


VALUE  NUMBERS 
P  OF  ADDR  TAB 
UE    NUMBER 

EQUIVALENCE 
Y 


/* 

/*    ADV    S 
/*    LOCAT 


TATE 
IONS 


POINTER    TWO 


*/ 
*/ 
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CALL  GET_ST; 
CALL  GET_ST; 
CNT    =    0; 

TOPADR    =    ADOLOC; 
CALL    GET    SI"; 
STPNT    =    5TL0C; 


DO    WHILE    TOPAOR    >    0; 

VARCONINO    =    ADDRESS(TOPAOR) ; 
IF    VARCONIND    =    0    THEN 
"      ACTADR    =    TOPAOR; 

ELSE    ACTAOR    =    LOUKADD < VARCON IND) ; 
IF    ACTAOR    =    TOPAOR    THEN 


DO; 


cons  =  addcont actaor) : 
value   =  addvall actadr) j 
valpnt  =  adonam(actadr) 
if  value  -»=  0  then 

do; 


CALL  GET_ST; 
CNT  =  CNT  +  1  J 
CALL  GET_ADOR; 
ADDRESS! ADDLOCR) 
AOOCON( ADOLOCR) 
ADOVAL(ADDLOCR)  ■■ 


=  VARCONINO; 

CONS; 
■■    VALUE; 


IF  VARCONIND  =  0  THEN 

DO; 

OPTYP    =    AODTYPE(ACTADR); 
OPNT    =    OP    DEGL(OPTYP) ; 
VALPNT    ---    VTOPR    -    l; 
NAMPNT     =    ADDNAM(ACTAUR)     + 


DO    WHILE    OPNT    >    0; 

OPNT    =    OPNT    -    1; 

NAMPNT    =     NAMPNT    *    1; 

CALL    GET    VTOPR; 

VTAB(VTOPR)     =    VTABINAMPN 
END; 


/* 


/* 
/* 
/* 
/* 


/* 
/* 


/* 
/* 
/* 

/* 


/* 
/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 


T); 


END; 


END; 


ENO; 
END; 
TOPADR  = 


ADDNAM( ADDLOCR)=  VALPNT; 
ADDTYPEt ADOLOCR)  =  ADDTYPE ( ACTAD 
STATESt STLOC)  =  ADDLOCR; 


TOPADR  -  I 


STATESt  STPNT)  =  CNT; 
RETURN  STPNT  -  2; 
END  BUILD, INPUT_POOL; 


MOVE  ALL 
ENTRIES. 


ADDRESS  TABLE 


*/ 


*/ 
*/ 
*/ 
*/ 


TOP-MOST    ENTRY    IN    ADDRESS    */ 
TABLE.  */ 


A    VALUE     #    IS    ASSIGNED  */ 

IMPLIES  USEFUL  INFORMATION*/ 
MAKE  AN  ENTRY  IN  THE  STATE*/ 
VECTOR    SAVE    AREA  */ 


MUST    HAVE    A    VALUE    TABLE 
ENT^Y    FOR    THE    ADDRESS 
ENTRY     IF    NO    ADDRESS    ft 
ADDNAM    IS    POINTER    TO    VTAB 


MOVE     THE    VALUE    TABLES 
ENTRY    FROM    VTAB    ENTRY    TO 
TOP    OF    VTAB    (SAVE    AREA) 


*/ 
*/ 
*/ 
*/ 

*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 


/* 

*/ 

/* 

SET 

NEW 

POINTER 

IN 

ADDNAM 

*/ 

/* 

*/ 

R); 


/* 
/* 
/* 
/* 


*/ 

MARK    THE    4    OF    CLASSES    THIS*/ 
STATE.  .*/ 

*/ 
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4529 
4530 
4531 
4532 
4533 
45  34 
4535 
4536 
45  3  7 
4538 
4539 
4540 
4541 
45  4  2 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
45  51 
4552 
45  S3 
4554 
4555 
4556 
4557 

455  8 
45  59 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 

456  8 
4569 
4570 
45  71 
4572 
4573 
4574 
4575 
45  76 
4577 
4578 


THIS  R0 
UPON  Th 
FOR  THE 
MEET  OP 
P 

WHERE 


RETURNS 
IN  SIZE 
POOL. 
ROUTINE 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*  ROUTINE 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


*/ 


PERFORM_MEET  OP 

UTINE  PERFORMS  TriE  MEE 

E  CURRENT  POOL  V5  THE 

OPTIMIZATION  FUNCTION 
ERATION  IS  DEFINED  TO 
P   (AND)  P 


PC  = 


PI 


PO 

TRUE 


IF 


0 

CURRENT  STATE 
IMMEDIATE  SUCC 
BLOCK 

INPUT  POOL  TO 
TO  PROCESS  THE 
BLOCK 

OUTPUT  POOL 
CURRENT  POOL 


*/ 

T  OPERATION  */ 
INPUT  POOL.  */ 
S  USED,  THE  */ 
BE:  */ 

*/ 
ICO  */ 

OF  AN        */ 

ESSOR        */ 

*/ 

BE  USED      */ 

SUCCESSOR   */ 

*/ 

*/ 

*/ 

*/ 

*/ 

S  WITHIN  PROCEDURE:  */ 

W  OCCURANCE  */ 

W  REFINEMENT  */ 

INITIAL  PMO  */ 

LOOK  VARIABLE  */ 

BUILD"_EXP„ENTRY  */ 

S1CH  i?CCURANCE_LIST  */ 

BUILO_CLASS_OCCURANCE_LIST  */ 
BUILD_NEW  SIM  VAR_ENTKY  */ 
ASSIGN_REF INEMtNT  */ 

SEARCH  REFINEMENT  LIST  */ 
DELETE  OCCURANCE  ~  */ 

PERMUTE_REFINEMENT  */ 

SET_SEARCH_LIST  */ 

S  CALLED:  */ 

INITIAL  PMO  */ 

LINE  FEED  */ 

.  PRINT  OUTPUT  POOL  */ 

W_STATE  */ 

ERROR  */ 

BUIL0_CLASS_0CCURANCE_LIST  */ 
W_0CCURANCE  */ 

DELETE  OCCURANCE  */ 

LOOK  VARIABLES  */ 

SEARCH_REFINEMENT  LIST  */ 
ASSIGN_REFINEMENT~  */ 

BUILD_NFW_SIM_VAR  ENTRY  */ 
W.REFINEMENT  */ 

SRCH  OCCURANCE  LIST  */ 

BU1LD_EXP_ENTR7  */ 

*/ 


.  DECREASES 
FALSE  IF  NO  CHANGE  IN  CURRENT 
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4579 
43  80 
45  81 
4582 
4583 

45  84 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4£  0  8 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 

46 1  9 
4620 
4621 

46  2  2 
4623 
4624 

462  5 
4626 


PERFORM_MEET_OP:    PROCEDURE (BLKADR)     BIT  < 1 ) ; 

DECLARE         CUR_STATE_CHG0    BITll), 

TOT_CLASS_CNT    FIXED, 


L^v^-^yv^Ny/ 


SIMP_VARIABLES_PRES  FIXED, 
MAX  ELEMENTS  LITERALLY 
OCCTUP       FIXED, 


OCCNUM 


•90', 
(MAX.ELEMENTS)     BIT(16) 


CCCVAL  (MAX_ELEMENTS)    BITI16) 

MAX    REFINEMENTS       LITERALLY  '90', 

RTOF  FIXED, 

REFNVAL  (MAX    REFINEMENTS)     BIT( 

REFCVAL  (MAX_REFINEMENTS)     31  T( 

REFIVAL  (MAX.REF INEMENTS)     3IT( 


REFOPERS(MAX_REFINEMENTS»     BIT(  16)  , 

INPOPERS(MAX_REFINEMENTS)    BIT (16)  , 

OPE RSI MAX_REFINEMENTS)     BIT (lb) , 
STOP  FIXED, 


SPOINT 


FIXED, 


SVPNT  FIXED, 

NEW_ST_COUNTER       FIXED, 


NEW    ST    PT 
STPT 

STCOUNTER 
OPTIMADR 
INPUT  ADR 

OPTIMVAR 


r\r*T  Hum 


FIXED, 
FIXED, 
FIXED, 
FIXED, 
FIXED, 

FIXED, 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
,  /* 
/* 
,  /* 
/* 
/* 
16)  ,/ 
16)  ,/ 
lo)  ,/ 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


TRUE 
REOU 
HOLD 

ENTR 
OPT  I 
IF  S 

MAX 
HOLD 
THE 
HOLD 
EACH 
HOLD 
MAX 
TOP 
*HOLD 
*fiOLJ 
*HCLD 
INPJ 
CLAS 
WHEA 


Ntw 

EXPR 

UPE=. 

THE 

CURR 

COUM 

CLAS 

POIN 

CLAS 


IF  ST 

CED. 
S  TOTA 
I  E  S  IN 
M  I  Z  E  D 
IMP  VA 
SIZE  0 
S  NUM3 
OCCUKA 
S  H  OF 
CLASS 
S  CLAS 
SIZE  0 
OF  THE 
S  REFI 
CURR 
VALU 
POOL 
MAPP 
VI 


ATE  HAS  8EEN 


L  NUMBER  0 

CURRENT 
POOL 

RIA8LES  PR 
F  OCCURANC 
ER  OF  CLAS 
NCE  LIST 
ELEMENTS 

S  VALUE* 
F  REFINEME 
REF  INEMEN 
N50  VALUE 
ENT  POOL  V 
E  NUMBER  I 


*/ 

*/ 

F      */ 

*/ 

*/ 

ESENT  */ 

E  LIST*/ 

SES  IN*/ 

*/ 

IN     */ 

*/ 

*/ 

NT     */ 

T  LIST*/ 

NUMBER*/ 

ALUE#  */ 

N 


V2  = 


V 
CLASS 

E  S  S  I  ON 
AND  TO 
INPUT 
ENT  EX 
TER  FO 
S  INTE 
TER  FO 
S  INTc 


INSS 

=  VAL 

CUR 

VAL 

POO 

=  NEW 

NUMBE 

OPER 

SEAR 

EXPRE 

P  OPE 

R  EXP 

RSECT 

R  EXP 

RSECT 


V(V1 

#  IN 
RENT 

#  IN 
L 

CLAS 
R  FOR 
AND 
CH  FO 
SSION 
RANDS 
RESSI 
ION  T 
kESS  I 
ION  T 


,  V2) 

POOL 
INPUT 

S  H 
AN 

R  IN 


ON 

ABLE 
ON 
ABLE 


COUNT 
CLASS 
STATE 
POINT 
CURRE 
LOOP 
ADR  0 
ADR  0 
BEING 
INDIC 
CURRE 
0  = 


ER    FOR    T 
ES     IN    TH 

ER    FOR    T 
NT    STCTE 
CONTROL 
F    CURREN 
F    THE     IN 

PROCESS 
ATOR    AS 
NT     POOL 

EXPRESS 
0    =    SIMP 


HE    NUMBER 
E    MERGED 


OF 


HE  NEW  STATE 

POINTER 
FOR  CURRENT 
T  CL&SS 
PUT  POOL  EXP 
ED 

TO  TYPE  OF 
ENTRY 
ION 
LE  VARIABLE 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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ur i  in  v  ml 

REFINADR 
INPUTVAL 
fcXPADR 

OCCADR 

NUMOP 
BLKAUR 

OPVAL 

INRES 
CURES 
REFaDR 

savst 

SAVCNT 
OPER 
TSTOPER 
COMMOP 


r i acu, 
FIXED, 
FIXED, 
FIXED, 

FIXED, 

FIXED, 
FIXED, 

FIXED, 
FIXED, 
FIXED, 
FIXED, 
FIXED, 
FIXED, 
FIXED, 
FIXED. 
BITIlI, 


/*  UUKKtNl   PUUL  VALUtl* 


♦/ 


THIS  ROUTINE 

LIST. 

ROUTINE 


W 

ouT 


CURESTACK    BIT(l), 

ESTACK       BIT(l), 
FIRSTCALLR   BIT(l), 

BOPAR  FIXED, 

BOP8R  FIXEO, 

INPTYP  FIXED, 

OPTTYP  FIXED, 

FOUND        BIT(l), 
COUNT        FIXED, 
TEMP         FIXED, 
I  FIXED, 

FIND  BIT(l); 
/*<><><><><><><><>< 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/*<><><><> 
OCCURRENCE:  PROCEDURE; 
DECLARE  I  FIXED,  T  C 
OUTPUT  =  •  CLASS  OCC 
IF  PUNCHTOG  THEN 
OUTPUT(2)  =  '  CLASS 
IF  OCCTOP  <=  1  THEN 

DO; 

OUTPUT  =  '  (EMPT 

IF  PUNCHTOG  THEN 

OUTPUTI2)  =  ■  (E 

CALL    LINE_FEED(2 

RETURN; 
END; 

CALL    LINE    FEEDU); 
OUTPUT    =    T    ADDR 
IF    PUNCHTOG    THEN 
OUTPUTI2)     =     '     ADDR 


/* 

INPUT  POOL  VALUE  » 

*/ 

/* 

ADR  OF  THE  OP T I M  INFO  IN 

*/ 

/* 

TOP  OF  VTAB 

*/ 

/* 

ADR  OF  VALUE  it     IN  THE 

*/ 

/* 

OCCJRENCE  LIST 

*/ 

/* 

NUMBER  OF  OPERANDS 

*/ 

/* 

ADR  OF  BLOCK  HEADER  FOR 

*/ 

/* 

THE  CURRENT  POOL 

*/ 

/* 

CURRENT  POOL  OPERAND  VAL# 

*/ 

/* 

INPUT  POOL  RESULT  VALtf 

*/ 

/* 

CURRENT  POOL  RESULT  VAL# 

*/ 

/* 

REFINEMENT  TABLE  ADR 

*/ 

/* 

STURAGE  FOR  STATE  POINTER 

*/ 

/* 

STORAGE  FOR  STATE  COUNT 

*/ 

/* 

CURRENT  POOL  OPERATOR 

*/ 

/* 

INPUT  POGL  OPERATOR 

*/ 

/* 

TRUE  IF  CURRNT  POOL  EXP  IS*/ 

/* 

COMMUNITIVE 

*/ 

/* 

TRUE  IF  CURRENT  POOL 

*/ 

/* 

SIMPLE  VAKIABLE  IS  ON  THE 

*/ 

/* 

EXEC  STACK 

*/ 

/* 

TRUE  IF  INPUT  POOL  SIMPLE 

*/ 

/* 

VARIABLE  IS  ON  EXEC  STACK 

*/ 

/*  USED  TO  PERMUTE  REFINEMENT*/ 
/*  TABLE. .INDICATES  FIRSTPASS*/ 
/*  POINTER  FOR  PERMUTE  REF.  */ 
/*  POINTER  FOR  PERMUTE  REF.  */ 
/*  TYPE  OF  INPUT  POOL  ENTRY  */ 
/*  TYPE  OF  CURRENT  POOL  ENTRY*/ 
/*    MISC     POINTERS,     COUNTS,     ETC*/ 


<><><><><><><><><><><><><>*/ 

*/ 

..OCCURRENCE  */ 

TPUTS    THE    CLASS    OCCURANCE    */ 

*/ 

*/ 

E_FEEO  */ 

*/ 

*/ 

<><><><><><><><><><><><><><><><><>*/ 


S  CALLED: 
LINf 
PAD 


HARACTER; 
URENCE    LIST:' ; 

OCCURRENCE    LIST:' 


Y)  • ; 

MPTYP  ; 
) ; 


I  =  i 


CLASS  NUMBER      NUMBER  OF  OCCURRENCES' ; 

CLASS  NUM3ER      NUMBER  OF  OCCURRENCES", 


DO  WHILE  I  <  OCCTOP; 

T  =  •  'II  I; 

T  =  PADIT  ,  15,  R 

T  =  T  | |  OCCVALI 

T  =  PADIT,  32,  R 

T  =  T  | |  OCCNUMI 

OUTPUT  =  T; 

IF  PUNCHTOG  THEN 

OUTPUTI2)  =  t; 

I  ■  I  ♦  11 

END; 

CALL  LINE_FEED(2); 

ENO  W  OCCURRENCE; 

/*<><><><> 

/* 

/* 

/*  THIS  RO 

/*  TABLE. 

/*  ROUTINE 

/* 

/* 

/* 

/*<><><><> 

W  REFINEMENT:  PROCEDURE; 

DECLARE  I  FIXED,  T  C 

OUTPUT  =  •  CLASS  REF 

IGHT); 

I) ; 

IGHT); 

i); 


<><><><><><><><><><><><><><><><><>*/ 

*/ 

W    REFINEMENT  */ 

UTINE    OUTPUTS    THE    CLASS    REFINEMENT*/ 

*/ 

S    CALLED:  */ 

LINE.FEED  */ 

PAD  */ 

*/ 
<><><><><><><><><><><><><><><><><>*/ 

HARACTER; 
INEMENT  TABLE:", 
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It-     KUNCHILKi  IHbN 

0UTPUK2)  =  •  CLASS  REFINEMENT  TABLE 

:•; 

IF  RTOP  <=  1  THEN 

do; 

OUTPUT  =  '  (EMPTY)1; 

IF  PUNCHTOG  THEN 

OUTPUTI2)  =  •  (EMPTY)'; 

CALL  L INE_FEEO( 2); 

KETURN; 

END; 

CALL  LING  FEED(l); 

OUTPUT  =  «  LOC        NEW  VALUED 

CURRENT 

VALU 

IF  PUNCHTOG  THEN 

OUTPUH2)  =  •  LOC        NEW 

VALUE* 

CURREN 

VALUED 

CALL  LINE_FEED(1); 

1  =  1; 

DO  WHILE  I  <  RTOP; 

T  =  •  'II  I; 

T  =  PAOlT,  15,  R IGHT) ; 

T  =  T  |   REFNVAU  I  )  5 

T  =  PAOlT ,  30,  KlGHT) ; 

T  =  T  |   REFCVAH  I  )  ; 

T  =  PADll,  47,  RIGHT); 

T  =  T  |  |  REFIVAH  I  )J 

OUTPUT  =  t; 

IF  PUNCHTOG  THEN 

0UTPUT(2)  =  T; 

INPUT  VALUE*' ; 

INPUT  VALUE*' J 


I  =  I  +  l ; 

END; 

CALL  LINE_FEED(2); 

END  W  REF  INEMENT; 

/* 
/* 

/*  INITIAL 
/*  MEET  OP 
/* 

INITIAL_PMO:  PROCEDURE; 
DECLARE  I  FIXED; 
CUR  STATE_CHGD  =  FAL 
SAViT,  STPT,  STCOUNT 
SAVCNT,  STCOUNTER  = 
OCCTOP  =  1 ; 
DC  I  =  0  TO  (MAX  ELE 

OCCVAL(  I)  =  <5; 

OCCNUMl I)  =o; 
END; 

RTOP  =  1 ; 
DO  I  =  0  TO  (MAX_REF 

REFNVALd  )  =  0; 

REFCVAL( I )  =  0; 

REFIVALII )  =  0; 
END; 

TOT  CLASS  CNT  =  0; 
SIMP  VARIABLES  PRES 
END  INITTAL_PMO; 

/* 
/* 

/*  THIS  RO 
/*  THE  ADD 
/*  OEPENDI 
/*  IS  OR  I 
/* 

LOOK  VARIABLE:  PROCEDURE 
DECLARE! SRCHVAR,  FNO 
CURADR  =  ADDLOC; 
FNDADR  =  0; 
ESTACK  =  FALSE; 
DO  WHILE  (CURAOR  >  0 
TSTVAR  =  ADDRESS 
IF  TSTVAR  -=  0  T 

DO; 

E6IT  =  SHRIT 
IF  -.  E8IT  TH 
DO; 


*/ 

IAL.PMO  */ 

E  FOR  THE  PERFORM    */ 
E.  */ 

*/ 


I  NIT 

IZATION  ROUTIN 
ERATION  ROUTIN 


se; 

er  =  (csfcode(blkadr)  £  "ffff")  *■  2', 

STATES(STPT) ; 
ME  NTS  ~l )  I 


INEMENTS  -  1); 


=  0; 
<><><><><><><> 

LOOK 
UTINE  LOOKS  F0" 
RESS  TABLES. 
NG  ON  WHETHER 
S  NOT  FROM  THE 

(SRCHVAR)  FIXE 
ADR,  CURADR,  T 


<><><><><><><><><><>*/ 

*/ 

VARIABLES  */ 

R  AN  IDENTIFIER  IN   */ 
AN  INDICATOR  IS  SET  */ 
THE  FOUND  IDENTIFIER*/ 
EXECUTION  STACK     */ 
*/ 

d; 

STVAR)  FIXED,  EBIT  BIT(i); 


)  £  (FNDADR  =  0); 

(CURADR) 5 
HEN 

STVAR,  15)  &  "1"; 
EN 

/* 

/* 
/* 
/* 

IS  ENTRY  FROM  EXEC  STACK   */ 


NO..  . 


IF  TSTVAR  =  SRCHVAR  THEN 
00; 

FNOADR  =  CURADR; 
ESTACK  =  FALSE; 
END; 
END;  ELSE 
DO; 


*/ 
*/ 
*/ 
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TSTVAR  = 
IF  TSTVA 
DO; 

FNUA 
ESTA 
END; 

end; 
end; 

CURADR  =  CUkADR 
END; 

RETURN  FNDADR; 
END  LOOK  VARIABLE; 

/* 
/* 

/*    BUILDS 
/*    CURRENT 
/* 

BUILD_EXP_ENTRY:     PROCEDU 
OECLARE(STAOR,     RESAD 


/*   YES. 


ADDCON(CURADR)     £    "7FFF"; 
R    =    SRCHVAR    THEN 

OR    =    CURADR; 
CK    =    TRUE; 


l; 


*/ 
*/ 
*/ 
*/ 
*/ 


BUILD    EXP    ENTRY 
AN    EXPRESSION    ENTRY    FOR    THE    NEW 
STATE. 


STATES(NEW_ST_COUNTE 
NEW_ST_PT  =  NEW  ST_P 
STATESINEW.ST  PT)  = 
RESVAL  =  REFNVAHRES 
CONCUR  =  ADDCONtSTAD 
CONIN    =     ADDCONJ INADR 


IF    CONCUR    -*  =    0    THEN 
DO; 

IF    CONCUR    -•=    CONIN    THEN 
DO; 

ADDCON(STADR)    =    0; 
CUR_STATE_CHGD    =    TRUE; 
END; 
END; 


RE    (STADR,     RESADR,     INADR); 

R,     TEMP,     VPT,     RESVAL,     INADR,    COM 

/* 
/*    ADVA 

R)     =    STATES(NEW_ST_COUNTER)     *    l; 

T    <■    l; 

STADR; 

adr)  ; 
R); 

/. 

/*    IF    C 

/*    CHAM 
/*    ALTE 


IN,    CONCUR)     FIXED; 
NCE    THE    STATE    COUNT 


ONSTANT  INDICATOR 
GE  STATE  HAS  BEEN 
RED:        I.E.     A,    2    =>    A 


*/ 
*/ 
*/ 


ADOVAL( STADR)  =  RESV 
VPT  =  AODNAMt STADR) 5 
TEMP  =  NUMOP; 
DO  WHILE  NUMOP  >  0; 


VTAB 
SPOI 
VPT 
NUMO 

END; 

NUMOP    = 
END    BUILD_EX 


(VPT)     =    REFO 
NT    =    SPOI NT 
=    VPT    -    1; 
P    =    NUMOP    - 


AL; 


PERS(SPOINT); 

+  l; 


/* 

/*  SET 


/* 

/*  SET 
/* 


IN  NEW  RESULT  VALUE  # 


*/ 
*/ 
*/ 


IN    NEW   OPERAND   VALUE 


11 


SRCH_OCCURAN 
DECLARE 
FOUND    = 
SRCH_LOC 
DO    WHILE 
IF    V 
FOUN 
SRCH 
END; 

RETURN    F 
END    SRCH_OCC 


TEMP; 

P_ENT 
/*< 
/* 
/* 
/* 
/* 
/* 
/* 
/*< 

CE    LI 

(  vSl# 

0; 
=    11 
(SRC 

AL#    = 

D    =    S 
LOC 


RY " 

SRCH    OCCURANCE_LIST 
ROUTINE     SEARCHES    FOR    A    VALUE    rf    IN    THE 
CLASS    OCCURANCE    LIST.       RETURNS    0     IF    NOT 
FOUND    OR    ADDRESS     IF    FOUND. 

ST:    PROCEDURE! VAL#)     FIXED; 
,     SRCH_LOC,     FOUND)     FIXED; 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


OCCTOP)     L     (FOUND    =    0); 
(SRCH_LOC)     THEN 


H    LOC    < 
ECCVAL 

RCH    LOC; 

=    SR~CH_LGC    *■    l; 


OUND; 
URANCE_LIST; 

/*<><><>  <><><><><><><><><>0<><><><><><><> 

/* 

/* 

/*    BUILDS 

/*    UPON    TH 

/*    BLOCK    A 

/* 

/*<><><><><><><> <><><><><>  OOOOOOOO 


BUILD_CLASS    OCCURANCE    LIST 
THE    CLASS     OCCURENCE     LIST     BASED 
IE    CURRENT    OPTIMIZED    POOL    FOR    THE 
iT    BLKADR. 


*/ 
*/ 
*/ 
*/ 
*/ 
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BUILD    CLASS.C.CCURANCE    LIST:     PROCFOURE; 
DECLARE    (OPSTPT,    RUM    ENTRY,    CURADR 

SRCH    VAL#,     OCCADR,     AOURS, 
OPSTPT    =  (CSFC"ODE<BLKADR)     L    "FFFF") 


NUM    ENTRY    =    STATES ( OPSTPT ) ; 
DO    WHILE     NUM_ENTRY    >    0; 

NUM.ENTRY    =    NUM    ENTRY    -    1; 


OPSTPT    =    OPSTPT    ♦    1; 
CURADR    =    SIAT£S( OPSTPT); 
ENTYP,     ADDRS    =    A DORES S ( CUR ADR ) 
IF    ENTYP    =    0    1HEN 

DO; 


♦     ENTYP,    EXPADR. 

NUMOP,     hXPTYP,     I)     FIXEO; 
*    2;  /*P01NT     AT    STATE    COUNT       */ 

/*    AND    SET    UP    TO    BUILD  */ 

/*    OCCURANCE    LIST  */ 

/*  PROCESS  ALL  CURRENT  STATES*/ 
/*  DECREMENT  ENTRY  COUNT  AMD  */ 
/*    POIMT    AT    STATE     TO    BE  */ 

/*    PROCESSED  */ 


/*    IS    THIS    AN    EXPRESSION 
/*    ENTRY. 


*/ 
*/ 


EXPADR    =    ADDNAM(CUPAOR) 5 

SRCH    VAL#    =    ADDVAL(CURADR) ; 

OCCADR    =    SRCH_OCCURANCE    L I  ST  I SRCH_VAL H  )  ; 

IF    OCCADR    =    0     THEN 


/*  */ 

/*    YES. ..SET    POINTERS    TO    VTAB*/ 
/*  */ 


do; 


/*  */ 

/*    WAS    RESULT    VALUE  #    IN    THE     */ 

/*    OCCJRANCE    LIST  */ 

/*  */ 


OCCADR    =    OCCTOP; 


OCCTOP    =    OCCTOP    +    l; 
OCCVAL(OCCADR)     =     SRCH_VAL#; 
OCCNUM( OCCADR)    =     1; 
END;     ELSE 

OCCNUM(CCCADR)     =    OCCNUM(OC 
TOT_CLASS_CNT    =    TOT    CLASS 
END;     ELSE 
DO; 


/* 

/*  NO.. .SET  IT  IN 
/* 


CADR)  +  l; 
CNT  +  1; 


SIMP_VARIA8LES_PRES  =  SIMP 
SRCri_VALs  =  ADDVAL(CJRADR) 
OCCADR  =  SRCH_OCCURANCE_LI 


IF  OCCADR 
DO; 


0  THEN 


OCCADR  =  OCCTOP; 
OCCTOP  =  OCCTOP 
CCCVAL(OCCADR)  = 
OCCNUM( OCCADR)  = 
END;  ELSE 

OCCNUM(OCCADR)     =    OCC 
TOT_CLASS_CNT    =    TOT_ 
END; 
END; 
END    BUILD_CLASS    OCCURANC E_L I S T; 

/* 
/* 
/* 
/* 
/* 

BUILD_NEW_SIM_VaR_ENTkY:     PRCCEDJ 
DECLARE     (REFADR,     INADR,    STA3 
STATES(NEW_ST    COUNTER)     =    STA 
NEW    ST    PT    =    NEW    ST    PT    *    1; 
STATESTNeW.ST    PT)    =    STADR; 


/* 

/*   NO.. .SET 
/* 


IT    IN 


*   l; 

SRCH_VAL#; 

i; 


NUMIOC 
CLASS_ 


CADR)     +    1; 
CNT    *•     1  ; 


/*    SIMPLE    VARIABLE 
/*    NUM.ENTRY    >    0 


BUILD_NEW 
THIS  ROUTINE  BU 
CURRENT    STATE    E 


*/ 

SIM_VAR    ENTRY  */ 

I"LOS    A    NEW    SIMPLE    VARIABLE*/ 
NTRY.  */ 

*/ 
>*/ 


RE  (REFADR,  STADK,  INADR) 
R,  CUNIN, CONCUR)  FIXED; 
TES(NEW_ST_COUNTER)  *•  1; 


ADDVAL(STADR)  =  REFNVALI REFADR) ; 

IF  INADR  -*=  0  THEN 

DO; 

CONCUR  =  ADDCONI STADR)  £  "7FFF1 
CONIN  =  ADOCONI INADR)  L    "7FFF" 


/* 
/* 
/* 


/* 
/* 


SET  IN  NEW  VALUE  ,# 


*/ 
*/ 
*/ 


/*    ENTYP    -=    0  */ 

/*    WE    HAVE    A    SIMPLE    VARIABLE  */ 

/*    FOR    EXAMPLE,     A    CONSTANT.  */ 
VARIABLES.PRES    *•   I; 


STISRCH    VAL#) ; 

/*  */ 

/*    IS    THE    SIMPLE    VARIABLE  */ 

/*    VALUE     H     IN    OCCURANCE    LIST    */ 
/*  */ 


*/ 
*/ 
*/ 


*/ 
*/ 


IF  CONSTANT  INDICATOR  HAS 


*/ 
*/ 
*/ 


*/ 
*/ 


27.1 


IF  CONCUR  -1=  0  T 
DO; 

IF  CONCUR  -•  = 

00; 

ADDCONIS 
CUR.STAT 

end; 
end; 

END; 
END  BUILD_NEW_SIM  VAR  EN 
/*<5<><5<> 
/* 
/* 

/*  THIS  RO 
/*  VALUE  T 
/*  ROUTINE 
/* 
/* 
/* 

ASSIGN  REFINEMENT:  PRGCE 
DECLARE  (OVAL,  IVAL, 
IF  RTOP  >  MAX  REFINE 
DO; 

CALL  ERROR! 'REFI 
RTOP  =  RTOP  -  l; 

END; 

REFCVAL(RTOP)  =  OVAL 
REFIVAL(RTOP)  =  IVAL 


HEN 

CONIN  THEN 

TADR)  =  0: 
E_CHGD  =  TRUE; 


TRY  * 

ASSI3N_REF INEMENT 

UTINE  ASSIGNS  A  NEW  REFINEMENT 
ABLE  ENTRY. 
S  CALLED: 

ERROR 

GETVALtf 

DURE(OVAL,  IVAL,  OTYP,ITYP)  FIXE 
OTYP,  ITYPf  TESTA,  TESTB)  FIXEO 
MENTS  THEN 

NEMENT  TABLE  OVERFLOW,  11; 


/*  LMA.NGtU  bU  MAb  blAlt 


*/ 


*/ 
*/ 
*/ 
*/ 

*', 
*/ 

*/ 

*/ 

d; 


IF  ( IVAL  =  OVAL 
REFNVAL(RTOP)  = 
ELSE 

REFNVAL( RTOP) 

RTOP  =  RTOP  + 

RETURN  RTOP  - 

END  ASSIGN  REFINEME 

/*<>< 

/* 
/*  TH 

/*  FO 
/*  RE 
/* 
/*<>< 

SEARCH_REF I NEMENT _L 
DECLARE  (POINTE 
FOUND  =  0; 
POINTER  =  l; 


)  6  (OTYP  =  ITYP)  THEN 
=  OVAL ; 

=  GETVALiMCOMPU)  ; 

l; 


/*  */ 

/*  IF  CURRENT  AND  OUTPUT  */ 

/*  POOL  DO  NOT  HAVE  THE  SAME  */ 

/*  VALJE  #  ASSIGN  A  MEW  ONE.  */ 

/*  */ 


NT; 

s 

IS  RO 
R  AN 
TURNS 

><><> 

1ST: 
R,  OV 


END 


DO  WHILE  ( 
IF  (KE 
FOUND 
POINTE 

END; 

RETURN  FOU 

SEARCH.REF 


POINTER  < 
FCVAL( POIN 
=  POINTER; 
R  =  POINTE 

ND; 

INEMENT  LI 

/*<><><5<> 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*<><><><> 

CE:  PROCED 

CADR,  VALU 

RCH_OCCURA 

=  0  THEN 


EARCH_REF INEMENT  LIST  */ 

*/ 

UTINE  SEARCHES  REFINEMENT  LIST     */ 

ENTRY  V(OVAL,  IVAL)  IF  FOUND,      */ 
ADDRESS.  */ 

*/ 

PROCEDURE (OVAL,  IVAL)  FIXED; 
AL,IVAL,  FOUND)  FIXED; 


/* 

/*  SEARCH  FOR  MATCH  IN 
/*  REFINEMENT  LIST 
/* 

RTOP)  t  (FOUND  =  0) ; 

TER)  =  OVAL)  £  (REFIVAL( POINTER)  =  IVAL)  THEN 


*/ 
*/ 
*/ 
*/ 


R  *  l; 


ST; 


o<><><><  ><><><><><><><><><><><><>*/ 

*/ 


THIS  RO 
COUNT  F 
SIMPLE 
COUNT. 
ROUTINE 


DELETE_OCCU RANGE 
UTINE  DECREMENTS  THE  OCCURANCE 
OR  A  VALUE  #,  CHECKS  FOR  ALL 
VARIABLE  PAU  AND  DECREMENTS  ENTR 

S  CALLED: 
ER*3R 


URE(VALUEtf) ; 

Etf,  BUBBLE,  NEXT,  TEMP)  FIXED*, 

NCE_L1ST( VALUED) ; 


DELETE  UCCURAN 
DECLARE(OC 
OCCADR  =  S 
IF  OCCADR 

do; 

CALL  ERKORCOCCURANCE  LIST  ERROR', 6); 
RETURN; 
END;  ELSE 


*/ 
*/ 
*/ 
Y  */ 
*/ 
*/ 
*/ 
*/ 


/* 

/*  IS  CLASS  EXHAUSTED 
/* 


*/ 
*/ 
*/ 
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ULLiNUMtULL  AUK  i     =    ULLNUIilULLA 
IF    OCCNUMCOCCADR)     =    0    THEN 
00; 


UK  I 


IV 


BUBBLE 
DO  WHIL 
NEX 
OCC 
OCC 
BUB 

end; 

OCCTOP 
END; 

TOT    CLASS    C 

END    DELE~T5_0CCu 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

PERMUTE_REF INEM 

DECLARE  ANS 

TOP 

TEM 

ANS  =  FALSE 


=  OCCADR; 
fc  BUBBLE  < 
T  =  BUBBLE 
NUM (BUBBLE 
VALIBUBBLE 
BLE  =  BUBB 


/* 

*, 

/*   YES. . 

.REPACK    OCCURANCE 

*, 

/*    LIST 

*, 

/* 

*. 

OCCTOP 

♦  l; 
)  =  occ 
)  =  occ 
LE  ♦  l; 


NUM(NEXT) 
VAL(NEXT) 


OCCTOP  -  l; 

LASS_CN 


/*  BUBBLE  <  NUM_CLASS 


*, 


NT  =  TOT 

RANCE; 

* 

* 

* 


_CNT  -  l; 


ROUTINE 
TO  ALLOW 
POSSIBLE 


*<><><><>< 

ENT:  PROCE 
B  IT(1)  , 
FIXED, 
BIT(16); 


PER 
TO  PERM 
COMPLE 
INPUT 

DURE  BI 


*/ 

MUTE  REFINEMENT 

UTE  THE  REFINEMENT  TABLE 

TE  CHECKING  FOR  ALL 

EXPRESSIONS. 


*/ 
*/ 
*/ 
*/ 
*/ 


OOOOOO  <><><><><><><>*/ 

T(  l) ; 


if  firstcallr  then 
do; 

firstcallr  =  false; 

80PAR  =  l; 

BOPBR  =  l; 
END; 

TOP  =  RTOP  -  1; 
BOPBR  =  BOPBR  f  1; 


IF    BOPBR    >    TOP    THEN 
DO; 

BOPAR    =    BOPAR    4-    1; 

BOPBR    =    BOPAR    +•    I; 

IF    BOPAR    <    TOP    THEN 

ANS    =     TRUE; 


/* 
/* 
/* 


IF    FIRST    PASS    SET 


POINTERS*, 


/*  IF  SECOND  POINTER  BEYOND  *, 

/*  TABLE  LIMIT  ADVANCE  FIRST  */ 

/*  POINTER  AND  RESET  SECOND  */ 

/*  *i 


END; 
ELSE 

ANS  ■■ 


TRUE; 


IF  ANS  THEN 
DO; 

TEM  =  RE 
REFNVALI 
REFNVALI 
TEM  =  RE 
REFCVALI 
KEFCVALI 
TEM  =  RE 
REFI VAL( 
REFIVALI 
END; 

RETURN  ANS; 
END  PERMUTE  REFI 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/*  */ 

/*  IF  PERMUTATION  HAS  POSSIBL*/ 
/*  PERMUTE  THE  REFINEMENT  */ 
/*  LIST.  */ 

/*  */ 


FNVALI BOPBR 
BOPBR)  =  RE 
BOPAR)  =  TE 
FCVALIBOPBP 
3UP3R)  =  RE 
BOPAR)  =  TE 
F  IVALI BQP3R 
BOPBR)  =  RE 
BOPAR)  =  TE 


); 

FNVAL 

m; 
); 

FCVAL 

m; 
); 

FIVAL 

m; 


(BOPAR); 
(BOPAR); 
(BOPAR) ; 


NEMENT; 

SET  SEAPCH_LIST 
THIS  ROUTINE  SETS  UP  THE  LIST  OF  OPERAND 
VALUE  NUMBERS  TO  BE  SEARCHED  FOR  IN  THE 
INPUT  POOL.   THE  SEARCH  LOOKS  FOR 
CORRESPONDING  INPUT  VALUES  IN  THE 
REFINEMENT  TABLE  FOR  THE  TWO  INPUT  VALUE 
NUMBERS.   EX.  (VALA,  X)  AND  (VALB,  Y) 
RESULTING  IN     (X,  Y)    A  VALUE  NUMBER 
PAIR  THAT  IS  EQUIVALENT  IN  THE  INPUT 
POOL. 


>*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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SET_SEARC 
DECLA 

F  IRST 
COMFL 
ANS    = 
STOP 
SPOIN 


H    LIST:       PROCEDURE    B!  T  (  1  J  ; 

R£    (ANS,     TRYFLG,     FIND.     OVFLOW,    COMF 
(SPOINT,    CNT ,    OCNT,     OPADR,    LSONE 
CALL    =    TRUE*, 
G    =    TRUE ; 

FALSE; 
=  0; 
T  =  l; 


LG)  BIT(l), 
)  FIXED; 


/* 


DO  WHILE  comflg; 

TRYFLG  =  TRUE; 
FIRSTCALLR  =  true; 
FIND  -  FALSE; 


10  WHILE  TRYFLG  6  ->    FIND; 
OVFLOW  =  FALSE; 
CNT  =  1} 
OCNT  =1; 


/*  PROCESS  UNTIL  ALL 

/*  PERMUTATIONS  IN  CURRENT 

/*  POOL  HAVE  BEEN  SEARCHED 

/*  FOR. 

/* 


*/ 
*/ 
*/ 


'AL(CNT) ; 
'AL(CNT); 


DO  WHILE  (-.FIND)  C  (-.OVFLOW); 

IF  REFCVAL(CNT)  =  OPERS(OCNT)  THEN 
DO; 

REFOPERS(SPOINT)     =    REFNVi 

INPOPERS(SPOINT)     =    REFIVi 

SPOINT  =  SPOINT  t  1; 

FIND  =  OCNT  =  NUMOP; 

CNT  =  CNT  +  l; 

OCNT  =  OCNT  *  l; 

LSOMF  =  OCNT  -  1 ; 

OVFLOW  =  (CNT  *■    NUMOP  -  LSONE)  >=  P.TOP; 
END; 
ELSE  DO; 

CNT  =  CNT  f  lj 

LSONE  =  OCNT  -  1 ; 

OVFLOW  =  (CNT  4-  NUMOP  - 
END; 
END; 

IF  OVFLOW  THEN 
SPOINT  =  SPOINT  -  LSONE; 


/*  */ 

/*  PROCESS  UNTIL  A  MATCH  IS  */ 

/*  FOUND  OR  ALL  PERMUTATIONS  */ 

/*  OF  REFINEMENT  LIST  HAVE  */ 

/*  BEEN  CHECKED.  */ 

/*  */ 


/*  */ 

/*  PROCESS  A  REFINEMENT  LIST  */ 

/*  CONFIGURATION.  */ 

/*  */• 


LSONE)  >=  RTOP; 


END; 


IF  FIND  THEN 
DO; 

ANS  =  true; 

STOP  =  STOP  *  i; 
END;  ELSE 
TRYFLG  =  PERMUTE_REFINEMENT; 


/* 

/*  IF  CURRENT  POOL 
/*  FOUND,  INDICATE 
/* 


*/ 

EXPRESSION*/ 

SO.        */ 

*/ 


/* 

/*  IF  CURRENT  POOL 
/*  TRY  TO  PERMUTE. 
/* 


if  commop  then 
do; 

opadr  =  addr(0pers(1 )  )  ; 

comflg  =  permute( numop,  opadr,  2,  true); 

END;  ELSE 
COMFLG  =  FALSE; 
END; 

RETURN  ANS; 
END  SET_SEARCH  LIST; 

7*<> <><><><><><> <><><><><><><><><><><><><><>*/ 
/*  */ 

/*  ACTUAL  BEGINNING  OF  PERFORM  MEET  OP.      */ 
/*  */  • 

/*<><><><> <><><><><><><><><><><><><><><><><>*/ 

/* 

/*  SET  THE  CURRENT  STATE 
/*  COUNTER  AND  POINTER 
/* 

CALL  INITIAL  PMO; 

IF  TRACETOG  THEN 


*/ 

COMMUNITIV*/ 

*/ 

*/ 


*/ 
*/ 

*/ 
*/ 


21h 


uu; 


END; 


CALL  LINE  FEED(l); 

OUTPUT  =  T  BEFORE  THE  MEET  OPERATION:   • 

IF  PUNCHTOG  THEN 

OUTPUT(2)=  •  BEFORE  THE  MEET  OPERATION: 

CALL  LINE  FEED! 1 ); 

CALL  PRINT  OUTPUT  POOL; 

CALL  W  STATE (BLKADR,  '  CURRENT  POOL  FOR' 


IF  (STLOC  *■    STCOUNTER)  >  MAXSTATE  THEN 
DO; 

CALL  ERRORC  UNABLE  TO  PERFORM  MEETOP 

RETURN  FALSE; 
END; 


NEW_ST_COUNTER  =  MAXSTATE  -  STCOUNTER  -1 ; 
NEW_ST  PT  =  MAXSTATE  -  STCOUNTER  -1; 

statesTnew_st_counter)  =  o; 


CALL  BUILO  CLASS_OCCURANCE  LIST; 
IF  TABLETOG"  THEN 
CALL  W_OCCURRENCE; 


); 

/*  */ 

/*  IS    THERE    ENOUGH    ROOM    TO          */ 

/*  PERFORM    THE    MEET    OPERATION*/ 

/*  */ 


/*    NO.. . 
STATE    UBLE    OVERFLOW,     1); 


*/ 


/*  */ 

/*    SET     POINTERS  TO    THE    MERGEO*/ 

/*    STATE    AREA  */ 

/*  */ 


/*  */ 

/*  BUILD  THE  CLASS  #  */ 

/*  OCCJRANCE  LIST  FOR  THE  */ 

/*  CURRENT  POOL  */ 

/*  */ 


/* 


*/ 
/*  PROCESS  ALL  THE  SIMPLE  */ 
/*  VARIABLES  FROM  THE  CURRENT*/ 
/*  STATE  */ 

/*  */ 

/*  */ 

/*  ARE  THERE  ANY  SIMPLE  */ 
/*  VARIABLES  PRESENT.  */ 
/*  */ 

DO  WHILE  (STCOUNTER  >  0)  £  ( S IMP.VARI ABLES  PRES  -=  0); 

/*  */ 

/#    YES. . .  */ 

/*  */ 

STPT    =    STPT    +    1; 

STCOUNTER    =    STCOUNTER    -    I; 

GPTIMAUR    =    STATES! STPT); 

OPTIMVAR    =    ADDRESS(OPTIMADR) ; 

OPTIMVAL  =  ADDVAL(OPTIMADR) ; 

OPTTYP  =  ADDTYPt 10PTIMADR) ; 

IF  OPTIMVAR  -=  0  THEN 


/*  IS  THIS  A  SIMPLE  VARIABLE  */ 


DO; 


IF  SHRIOPTIMVAR,  15)-  £  "1"  THEN 


DO; 

OPTIMVAR  =  ADDCON(OPTIMADR) 

CURESTACK  =  TRUE; 
END;  ELSE 
CURESTACK  =  FALSE; 


/*  OR  AN  EXEC  STACK  ENTRY     */ 

/*  */ 

/*    YES. ..IS     IT    EXEC  STACK            */ 

/*  */ 

/*  */ 

/*    YES. ..GET    THE     IDENTIFIER       */ 

/*  */ 


£    "7FFF"; 


CALL  OELETE  OCCURAN: E ( OPT  I MVAL ) ; 
SIMP_VARIABCES_PRES  =  SIMP_VARIABLES. 


INPUTADR  =  LOOK_VARI ABLE(OPTIMVAR); 

IF  INPUTADR  -*=  0  THEN 

DO; 


/* 

/*  DECREMENT 
/*  COUNT  FOR 
/* 


*/ 
THE  VALUE  #  */ 
THIS  IDENTIFIER  */ 

*/ 


PR 

7* 

/* 
/* 
/* 


:s  -  i 


IS  THE  IDENTIFIER 
INPUT  POOL 


IN  THE 


INPTYP  =  ADDTYPEI  INPUTADR)  : 
INPUTVAL  =  ADDVALI INPUTADR); 
REFADR  =  SEAkCH_REFINEMENT_LIST! 


/* 

/*    YES...- 
/* 


OPTIMVAL,     INPUTVAL); 
/* 
/*    IS    THE    ENTRY    ALREADY     IN 


*/ 
*/ 
*/ 
*/ 


*/ 

*/ 
*/ 


*/ 

*/ 
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/*  IHt  KthlNtMtNl  Llbf  */ 

/*  */ 

IF  REFAOR  =  0  THEN 

/*  */ 

/*  NO.. .PUT  IT  IN  */ 

/*  */ 

REFADR  =  ASSIGN  REF  INEMENT ( OPTIMVAL,  INPUTVAL,  OPTTYP,  INPTYP); 

/*  */ 
/*  BUILD  A  STATE  ENTRY  FOR    */ 

/*  THE  SIMPLE  VARIABLE  */ 

/*  */ 

CALL  BUILD_NEW  SIM  VAR_ENTRY ( REFADR ,  OPTIMADR,  INPUTADR); 

/*  */ 

END;  ELSE                              /*  END  OF  INPUTADR  -=  0  */ 

/*  */ 

/*  VARIABLE  NOT  IN  INPUT  POOL*/ 


CUR_STATE_CHGD  =  TRUE; 


END 

IF 

DO; 


END; 

TABLETOG  THEN 

OUTPUT  =  '  AFTER  PROCESSING  SIMPLE  VARIABLES:*; 
IF  PUNCHTCG  THEN 

OUTPJT12)  =  '  AFTER  PROCESSING  SIMPLE  VARIABLES:' 
CALL  W.OCCURRENCE; 


/*  I.E.!  CURRENT  STATE  IS 

/*  GOING  TO  GET  SMALLER 
/* 

/*  ENO  OF  SIMPLE  VARIABLE 


*/ 
*/ 
*/ 

*/ 


END  I 


CALL    W_BEFINEMENT; 


/* 


*/ 


DO  WHILE  TOT_CLASS_CNT 
STCOUNTER  =  SAVCNT; 
STPT  =  SAVST; 


>  o; 


DO  WHILE  STCOUNTER  >  0; 
STPT  =  STPT  *■  l; 
STCOUNTER  =  STCOUNTER  -  l; 
OPTIMADR  =  STATES(STPT); 


IF  OPTIMADR  -•=  0  THEN 
DO; 


OPTIMVAR  =  ADDRESSJOPT  IMADR)  ; 
OPTIMVAL  =  ADDVAL(OPTIMADR) ; 
OPTTYP  =  AODTYPEI OPTIMADR) ; 


IF  OPTIMVAR 

DO; 


0  THEN 


/*•  NOW  PROCESS  ALL  EXPRESSION*/ 
/*  FROM  CURRENT  STATE  */ 
/*  */ 


/*  */ 

/*  PROCESSES  ALL  CLASSES  IN   */ 

/*  CURRENT  POOL.  */ 

/*  */ 


/*  */ 

/*  IS  CLASS  PRESENT  */ 

/*  */ 


/*  */ 

/*  YES. ..SET  INDICATOR        */ 
/*  */ 


/*  */ 

/*  IS  THIS  AN  EXPRESSION      */ 

/*  ENTRY         •             */ 

/*  */ 


/*  */ 

/*  YES. ..  */ 

/*  */ 

EXPADR  =  ADDNAM(OPTIMADR) ; 

OPER,  TEMP  =  OPTTYP; 

COMMOP  =  OP  TYPE(OPER)  =  COMM; 

NUMOP  =  OP  5EGH0PER); 

FOUND  =  FACSt; 

/*  */ 

/*  CHECK  TO  SEE  THAT  ALL  THE  */ 
/*  OPERANDS  HAVE  BEEN  REMOVED*/ 
/*  FROM  THE  CLASS  OCCURANCE  */ 
/*  LIST  */ 

/*  */ 

I  =  11 

DO  WHILE  NUMOP  >  0  6  -.  FOUND; 
OPVAL  =  VTAB(EXPADR) ; 
OPERS(I)  =  OPVAL; 

OCCAOR  =  SRCH  OCCURANCE  L  I  ST (OPV AL ) ; 
IF  OCCADR  -.=  3  THEN 
IF  OPVAL  -.=  OPTIMVAL  THEN 
FOUND  =  TRUE; 
I  ■  I  ♦  II 

EXPADR  =  EXPADR  -  I; 
NUMOP  =  NUMOP  -  1; 
ENDJ,  /*  WAS  OPERAND  CHECK  OK     ■  */ 
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NUMUH     = 
IF    -.FOU 

do; 


UK    UtOL lUKtK J ; 

nd  Then 


CAL 

EXP 
CUR 


IF 

DO; 


/* 

/* 
/* 


YES. ..PROCESS    THE 


*/ 

EXPRESSN*/ 
*/ 


L   DELETE    OCCURANCEtOPT IMVAL); 
ADR    =    ADDNAM(UPTIMADR) ; 
ES    =    OPT IMVAL J 

/* 

/*  ARE  THERE  ANY  EQUIVALENCE 

/*  CLASSES  TO  TEST  FOR 

/* 
SET_SEARCH_LIST  THEN 


SPOINT  =  1 

SVPNT 
DO  WHILE  ( 
HASHAO 
DO  WHI 
HA 
SP 
NU 
END; 
NUMOP 
SPOINT 
HASHAD 
HASHAD 
DO  WHI 
IN 
I 
DO 


/* 
/* 
/* 
/* 
/* 

YES.  .  .CH 

TABLE  EN 
CODED  CH 

(-*  FOUND); 

*/ 
*/ 
*/ 
*/ 


*/ 


ECK  ALL  EXPRESSION*/ 

TRIES  VIA  THE  HASH*/ 

AIN.  */ 

*/ 


=  SPOINT; 

STOP  >  0) 

R  =  OPER; 

LE  NUMOP  >  0; 

SHADR  =  INPOPERS(SPOINT)  +  HASHADR; 

OINT  =  SPOINT  ♦•  L; 

MOP  =  NUMOP  -  l; 


EN 
IF 
DO 
TS 
TS 
HA 
IF 
DO 


=  OP  DEGL(OPER); 
=  S7PNT; 

R  =  (HASHADR)  MOO  HASH 

R  =  VTAB(HASHADR) ; 

LE  (HASHADR  ->-    0)  £,  ( -• 

PUTADR  =  0; 

=  ADOLOC, 
WHILE  (  I  >  0)  £  (  INPU 
IF  ADDRESS( I )  =  0  TH 
IF  ADDNAMt I)  =  HASHA 
INPUTADR  =  I; 

I  =  I  -  l; 

D; 

INPUTADR  ->=    0  THEN 

TOPER  =  VTAB(HASHAOR)  ; 
TOPER  =  TSTOPER  I    "FF" 
SHADR  =  HASHADR  *•  2; 
TSTOPER  =  OPER  THEN 


BASE; 
FOUND) ; 


TADR  =  0) ; 

EN 

DR  THEN 


FIND  =  T 

1  =  0; 

DO  WHILE 
IF  V 
( 
FIND 
I  = 
SPOI 
NUMO 

END; 

NUMOP  = 

SPOINT  = 

IF  FIND 

DO; 


INPT 
INRE 
REFA 

( 
IF  R 
REFA 

I 
CALL 

R 
FOUN 


END; 


END; 


RUE; 

NUMOP  > 
TAB(HASHA 
SPOINT)  T 

=  FALSE; 

I  *   l; 

NT  =  SPOI 
P  =  NUMOP 

OP_DEGL(0 

SVPNT; 
THEN 

/* 

/*  AN  IN 
/*  BEEN 
/* 

YP  =  OPTT 
S  =  VTAB( 
DR  =  SEAR 
CURESt  IN 
EFADR  =  0 
DR  =  ASS  I 
NRESt  OPT 
BUILD_EX 
EFADR,  IN 
D  =  TRUE; 


0; 

DR  *-  I)  -»  =  INPOPERS 

HEN 


NT 
PER 


+  l; 
l; 

); 


PUT  EXPRESSION  HAS 
MATCHED. 

YP; 

HASHADR    +     NUMOP); 
CH    REFINEMENT    LIST 
RES")  ; 
THEN 
GN_REFINEMENT(CURESt 
TYP,     INPTYP); 
P    ENTRY(OPTIMADR» 
PDTADR) ; 


*/ 
*/ 
*/ 
*/ 


HA 

EN 
EL 

HA 
HA 


/* 

/*  ADCAN 
/*  ENTRY 
/* 
ADR  =  HASHADR  -  I 


*/ 

CE  TO  NEXT  HASH  CHAIN*/ 

*/ 
*/ 


ADR 
ADR 


HASHADR  *  I 
VTA6UIASHAD 


hi 


277 


end; 


end; 


tNu;  /«■  MAiH  CUUfc  CHAIN 

/* 

/*  ADVANCE  TO  NEXT  INPUT 

/*  EXPRESSION  TO  SEARCH  FOR 

/* 

NUMOP    =    OP    OEGU  OPER); 

SVPNT    =    NUROP    ♦■     SVPNT; 

SPOINT    =    SVPNT: 

STOP  =  STOP  -  1; 


end; 


STATES(STPT)  =  0; 


END; 


END; 


END; 


END; 


IF    -iFOUND    THEN 
CUR_STATE_CHGD    =    TRUE; 


/* 

/*    CLEAR    CLASS    INDICATOR    TO 
/*    PRECLUDE    DUPLICATE 
/*    PROCESSING. 
/* 


/* 

/*    IF    EXPRESSION    NOT    FOUND 

/*    STATE    HAS    CHANGED. 

/* 


*/ 
*/ 
*/ 


*/ 

*/ 
*/ 
*/ 
*/ 


*/ 
*/ 
*/ 


OL'; 
pool ' ; 


/*  */ 

/*    MOVE     THE    NEW    STATE    INTO  */ 

/*    THE    PROPER    LOCATIONS  */ 

/*  */ 

STCOUNTER    =    STATESINEW    ST    COUNTER); 
STPT    =     SAVST; 
STATES(STPT)     =    STCOUNTER; 
NEW_Sr_PT     =    NEW_ST    COUNTER; 
DO    WHILE    STCOUNTER    >    05 

STPT    =    STPT    *    1; 

NEW_ST    PT     =    NEW    ST    PT    +    i; 

STCOUNTER    =    STCOUNTER    -    1; 

STATES(STPT)     =    STATESiNEW    ST    PT); 

END; 

!C        TAOICTOO       TUCM 

DO; 

OUTPUT    =     «     AFTER    PROCESSING    ALL    EXPRESSIONS:'; 

IF    PUNCHTOG    THEN 

0UTPUTI2)     =    «     AFTER    PROCESSING    ALL    EXPRESSIONS:'; 

CALL    W    OCCURRENCE; 

CALL    W.REFINEMENT; 
END; 

IF    TRACETOG    THEN 
DO; 

OUTPUT    =     '    AFTER    PERFORMING    THE    MEET    OPERATION:        '; 

IF    PUNCHTOG    THEN 

0UTPUTI2)     =    '     AFTER    PERFORMING    THE    MEET    OPERATION:        '; 

IF    -    CUR_STATE_CHGD    THEN 

DO; 

OUTPUT    =    •     NEW    CURRENT     POOL/INPUT    POOL     IS    THE    SAME    AS    OLD    CURRENT     PO 


IF    PUNCHTOG    THEN 

OUTPUT(Z)     =•     NEW    CURRENT     POOL/INPUT    POOL    IS    THE    SAME    AS    OLD    CURRENT 


END; 

ELSE 

CALL    W_STATE(8LKA0R,'     NEW    CURRENT    POOL/INPUT    POOL    FOR 

CALL    LINE_FEEDl 1 ) 5 
END; 

RETURN    CUR     STATE_CHGD; 
END    PtRFORM_ME£T_OP; 

/*<><><><><><><><><> <><><><><><><>< ><><><><>*/ 

/*  */ 

/*                                     BUILD    BLOCK  */ 
/*    BUILOS    THE    3L0CK    READER    AND    CLEARS    THE          »/ 

/*    LOCATIONS    FOR    BRANCH    POINTS  */ 

/*                    BLOCK*     |     PROCESSED    BIT  |     STATE    PTR    */ 

/*                     FWA                     |     LWA  */ 

/*                    H    OF    TRANSVERSALS  */ 

/*                    #    OF    REFERENCES  */ 

/*                     BRANCH    FROM  */ 

/*                     BRANCH    FROM  */ 

/*    L    IS    THE    FWA    ADDRESS     IN    CODE  OF    BLOCK    TO    */ 

/*    BE    BUILT.  */ 

/*   ROUTINES    CALLED:  */ 

/*                                     ERROR  */ 

/*                                     BUILD     INPUT    POOL  */ 

/*                                     W    STATE  */ 

/*  */ 


); 


2?  8 


DU1LU     BLULK!     KKUL tUUKt I L J      MXtU; 

DECLARE     ILfCtI fJtBtS)     FIXED; 
C    =    CSFCODE(L)  ; 
I     =    C    L    "7FFF"; 


BLKCNT  =  BLKCNT  ♦  I; 

J  =  BLKLGC  +  I  +  BLKSIZE; 

IF  J  >  MAXCOOE  THEN 

DO; 

CALL    ERRORC     BASIC    BLOCK    TABLE    OVERF 
BLKLOC    =    CODELOC    ♦     1; 

END; 


/* 

/*    ADVAI 
/* 


iNCE    BLK   COUNTER 
r    LWA    BLK    HEADER    ADORESS*/ 


*/ 
*/ 
*/ 


B  =  BLKLOC; 
BLKPNT(BLKCNT)  = 


b; 


s  =  build_input_pool; 


CSFCODE(D=(C&"FFFFOOOO")  I  SHL(l,l5)  | 

CSFCGDE(B)  =  SHLIBLKCNT,  16)  |  s; 

IF  TRAC6TOG  THEN 

CALL  W_STATE(B,  '  INITIAL  CURRENT  OPTIMI 

CSFCODEO  t  l  )  =  SHLIL,  16)  ; 

CSFCODEIB  *  2 )  =  o; 

CSFCODE1B  +3)  =  I  ; 

BLKL0C=J; 
J=Bf4; 


LOW,  1] 

; 

/* 

/* 

SAVE 

/* 

ADDR 

/* 

/* 

/* 

BUR 

/* 

IMHE 

/* 

/* 

/* 

SET 

/* 

IN  C 

/* 

ENTE 

/* 

b; 

/* 

BLK# 

ZED  POOL 

.  TO 

/* 

STA* 

/* 

#    OF 

/* 

NUM3 

/* 

THIS 

/* 

/* 

CLEA 

/* 

prfo 

/* 

BE  P 

/* 

THE  BLOCK  HEADER 
ESS  FOR  LATER  USE. 


*/ 
*/ 
*/ 
*/ 


*/ 

D     INPUT    POOL    FROM  */ 

DIATE    PREDECESSOR    BLK    */ 

*/ 


FWA    OF    BLOCK    HEADER 


*/ 

*/ 


ODE  AND  MARK  BLOCK  AS  */ 


RED 


|  STATE  POINTER 

BE  USED  FOR  •); 
T  |  FINISH 

TRAVERSALS 
ER  OF    REFERENCES  FOR 

BLOCK. 


*/ 
*/ 

*/ 


*/ 

*/ 
*/ 
*/' 

*/ 

R  LOCATIONS  INTO  WHICH*/ 
ECFSSOR  SLOCK  #«S  WILL*/ 
LACED    LATER  */• 

*/ 


DO  WHILE  I  > 

o; 

CSFCODE(J)  =  0; 

J  =  J  ♦ 

.; 

1  =  1- 

.; 

END; 

END  6UILD  BLOCK; 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/* 

*/ 

/* 

RESTORE  TOGGLES                */ 

/* 

SETS  TOGGLES  AS  SPECIFIED  BY  A  PARTICULAR*/ 

/* 

BLOCK                                       */ 

/* 

*/ 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

RESTORE  TOGGLES: 

PROCEDURE; 

DECLARE  U,J] 

fixed; 

I^SAV  TOG(CTOP); 

DO  J  =  0  TO  #TOGS? 

TOGGLES(J)  =  SHR(I,  J)  £  "l»; 

END; 

END  RESTORE  TOGGLES; 

/*<><><><><><><><><><><><><><><><><><><><><>*/ 

/* 

*/ 

/* 

CONTROL  FLOW               *A 

/* 

THIS  IS  THE  BASIC  CONTROL  LOOP  OF  THE     */ 

/* 

OPTIMIZATION  PROCESS.    USING  THE  LIST    */ 

/* 

OF  BLOCKS  TO  BE  PROCESSED,  A  OPTIMIZED    */ 

/* 

BLOCK  IS  SELECTED  AND  ITS  CURRENT         */ 

/* 

OPTIMIZED  STATE  (INPUT  POOL;  S.N)  IS      */ 

/* 

RETRIEVED.   BASIC  RLOCK  THEN  FORMS        */ 

/* 

F(N,  S.N).   THIS  IS  THEN  SET  AS  THE  NEW   */ 

/* 

INPUT  POOL  FOR  ALL  SUCCESSORS  OF  THE      */ 

/* 

BLOCK  JUST  PkOCESStD.   AT  THIS  POINT,     */ 

/* 

THE  "MEET"  OPERATOR  IS  ACCOMPLISHED.      */ 

/* 

CONTROL  TABLE  IS:                          */ 

/* 

BIT31        30-16      15-0              */ 

/* 

VALID      PREDECESSOR  FWA  OF  BLK  IN     */ 

/* 

ENTRY        BLOCKS     CODE  AREA         */ 

/* 

*/ 

/* 

THE  VALID  BIT,  IF  SET  IS  AN  INDICATOR  TO  */ 

/* 

PRECLUDE  THE  PROCESSING  OF  A  BLOCK  ON     */ 

/* 

THE  CONTROL  STACK.                           */ 

/* 

ROUTINES  CALLED:                            */ 

/* 

RESTORE  TOGGLES               */ 
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/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


btl   UK  BLULK. 

oecOoe 

W  ALL 

BSSIC  BLOCK 

ENTERA"DD 

BUILD    INPUT    POOL 

PERFORM    MEET   OP 

BUILD.CLOCK 

OKDFR    BLOCK_LIST 


CONTROL    FLOW:     PROCEOURE; 

OECEARE     (C,     W,     B,    N6LK#,     I,     K,     S)     FIXED; 
00    WHILE    CTOP     >    0; 


C    =    CONTROL(CTOP) ; 
CALL    RE5T0RE_T0GGLES; 
ALTCT    =    l; 


IF    SHR(C,     31)     THEN 
CTOP    =    CTOP   -    l; 
ELSE 

do; 


M_CONTRGL  =    C    L    "FFFF"; 
BLK#  =  SHR(C,  16); 


W    =    CSFCODE(M    CONTROL); 
B,     CURBLOCK    =    W    &    "7FFF"; 


CALL  SET_UP_BLOCK; 

CTOP  =  CTOP  *     l; 

NBLK4  =  SHR(CSFC0DE18)  ,  16); 


PAS 

IF 

DO; 


SU,    CSFCODEIB  *  2)  =  CSFCODE(B  ♦• 
TRACETOG  THEN 


*/ 

V, 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


/*  */ 

/*  GET  BLOCK  TO  BE  PROCESSED  */ 

/*  OFF  LIST                    */ 

/*  */ 


/*  */ 

/*  IS  BLOCK  TO  BE  PROCESSED  */ 

/*  */ 

/*  NO.. .BYPASS  IT  */ 


/*  */ 

/*  YES.. .SET  FWA  THIS  BLOCK   */ 

/*  AND  BLK#  COUNTER.  */ 

/*  */ 


/*  */ 

/*  BLOCK  HEAOER  ADDRESS       */ 
/*  '  */ 


/*  */ 

/*  SET  UP  TABLES  ACCOROING  TO*/ 
/*  THE  CURRENT  STATE  OF  THIS  */ 
/*    BLOCK  */ 


/*  */ 

/*  ADVANCE  THE  PASS  COUNTER  */ 

/*  */ 
2)  *■  1; 


END 
ALT 
IF 
CAL 
B  = 
I  = 
K  = 


OUTPUT  =  •  CONTROL  AT 
■  TO  BLK  ' 

IF  PUNCHTOG  THEM 

0UTPUT(2)=«  CONTROL  AT 
•  TO  6LK  » 

CALL  DECODE  I  MJCQNTROLi  W, 

ST  =  l; 

TABLETOG  THEN 
L  W_ALL; 

B  i-  3; 

CSFCODE(B) ; 

l; 


I  I  M_C 

NBLK# 

I  I  M  C 

II  NBLKtf 

■C  +  ') 


ONTROL  ||  •  ,  FROM  BLK  '  ||  BLK«|| 
I  I  •  (PASS  '  |  |  PASStf  |  I  ')  '  ; 

ONTROL  II  *  ,  FROM  BLK  '  II  BLK#| I 
I  I  •  (PASS  '  I  |  PASStf  | I  « ) •; 


DO  WHILE  K  <=  I: 

C  =  CSFCOOEfB  +  K) ; 
IF  C  =  0  THEN 

DO; 

CSFCODE(B    *    K)    =    BLKff; 

k  =    I; 
END; 

IF    C    =    BLK#    THEN 
K   =  I; 
K   =  K  f    1; 
END; 


BLK#    =    NBLK0J 


/* 

/*  SET  IN  THE  PREDECESSOR 
/*  BLOCK  tf  FOR  THIS  BLOCK 
/* 


*/ 
*/ 
*/ 
*/ 


/* 

/*  SET  CURRENT  BLK#  TO  BE 

/*  NEW  BLOCK 

/* 

/* 

/*  GO  PROCESS  THE  BLOCK 


*/ 
*/ 
*/ 
*/ 

*/ 

*/ 
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CALL  BASIC.BLOCK; 


K  =  ETOP; 

DO  WHILE  ETOP  >  0; 

CALL  ENTERADD(SHL< 1 , 


/* 


*/ 


/*  */ 

/*    COPY     EXEC    STACK    TO    ADDRESS*/ 
/*    STACK    BEFORE    PROCESSING  */ 

/*  */ 


END; 


ADUTYPEl  ADULOC) 
ADDVaU  ADULUC  )  = 
ADDNAM(ADDLUC)  = 
I  =  EXCONl  ETOP)  ; 
AO0CON( ADDLOC)  = 
ETOP    =    ETOP    -    1; 


15)     |     (K    -    ETOP)); 


EXTYPEIETOP1 
EXVAL/HETOP)  ; 
EXNAMtf(ETOP)  ; 

SHL(I,     15)     I     EXADO(ETOP); 


K    =    VTAB(VTOP) ; 

DO    WHILE    K    i=    0; 

C    = 

VTAB(K    «•!)£,    "FF"; 

W     = 

OP    OEGL(C)     *    K    + 

3; 

w   = 

VTS3(W) ; 

DO; 

CALL    ENTERADD(O) 

' 

ADOTYPE(AODLOC)     = 

■  C; 

ADDVALI ADDLOC)     = 

w; 

ADDNAMl ADDLOC)     = 

K    + 

ADDCONI ADDLOC)     = 

o; 

END 

1 

K    = 

VTAS(K) ; 

/* 

/*    COPY    VALUE    TABLE    ENTRIES 

/*    TO    AODPE  SS    STACK. 

/#    -    ADDRESS    FIELD    SET    TO    0 

/*    TO    INDICATE    VTAB    ENTRY 

/*    ADOMAM    POINTS     TO    VTAB 

/*    ENTRY. 

/* 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


END; 


IF    PASS*    =    1     THEN 

CSFCODEICURBlOCK    *■ 
M_CONTROL; 


1)  =  (CSFCODEICUR! 


K    =    #XITS; 
K    =   CTOP    -    K; 
DO    WHILE    K    <    CTOP; 
K    =   K    ♦•    1; 


I  =  CONTROL(K); 
I  =  I  £  "FFFF"; 
W  =  CSFCODE( I ); 


/* 

*/ 

/* 

IF    FIRST    PASS     FOR    THIS 

*/ 

/* 

BLOCK,     SET     IN    THE    LWA     IN 

*/ 

/* 

BLOCK    CONTROL     AREA. 

*/ 

/* 

*/ 

LOCK    i-.i)     L    "FFFFOOOO")     | 

/* 

*/ 

/* 

PERFORM    THE    MEET    OPERATION* 

/* 

ON    THE    NEW    BLOCKS    ENTERED 

*/ 

/* 

ON    THE    CONTROL     STACK.        IF 

*/ 

/* 

THE     SAME    BLOCK    IS    ON    THE 

*/ 

/* 

CONTROL     STACK    MORE    THAN 

*/ 

/* 

ONCE,     MARK    ALL    BUT    THE    ONE*/ 

/* 

WITH    THE    MINIMU-1    CURRENT 

*/ 

/* 

POOL     TO    BE    BYPASSED.     IF 

*/ 

/* 

THE    MEET    OPERATION    DOES 

*/ 

/* 

NOT    DECREASE    THE    CURRENT 

*/ 

/* 

OPTIMIZED    POOL    OF    A    BLOCK 

*/ 

/* 

MARK     IT    NOT    TO    BE    PROCESSOR 

/* 

*/ 

/* 

/*  GET  BLOCK  CODE  FWA 


C    =    W    £    "7FFF"; 

IF    SHRCWi     15)     £    "1"    THEN 

DO; 

IF     PERFORM    MEET_OP(C)     THEN 


DO  B  =  1  TO  K  -  l; 


/* 

/*  GET 
/* 


BLOCK  HEADER  FWA 


/*  IF  BLOCK  IS  PRESENT 

/*  PERFORM  THE  "MEET"  OPER 


*/ 
*/ 
*/ 


*/ 
*/ 
*/ 

*/ 
*/ 


IF     (CONTROL(B)     G    "FFFF") 


/*  */ 

/*    OPTIMIZED    POOL     WAS    ALTERED*/ 
/*    -     IE. ,     THIS    VtRSION    OF  #/ 

/*    THIS    BLOCK     IS    MOST    CURRENT*/ 
/*  */ 

/*  */ 

/*  IS  SAME  BLOCK  ON  STACK  */ 

/*  MORE  THAN  ONCE.  */ 

/*  */ 
=  I  THEN 
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5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
587  7 
5878 
5879 
5880 
5881 
5882 
5883 

58  64 
5885 
5886 
5887 
5888 
5889 
5890 
5891 
5892 
5893 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5°Qt- 
5907 
5908 
5909 
5910 
5911 
5912 

59  13 
5914 
5915 
5916 
5917 
5918 
5919 
5920 
59  21 
5922 
5923 
5924 
59  2  5 
5926 
59  2  7 
5928 
59  29 
5930 
5931 
5932 
5933 
59  34 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
59  50 


CONTROL(Q) 
END;     ELSE 


=    SHLUt     31)  ; 


CONTROL(K) 
END;    ELSE 


SHLIli    31); 


CALL    BUILD_BLOCK( I) ; 


END; 


CALL  ORDER  8i.0CK_LIST; 
IF  TABLETOG"  THEN 
CALL  W_ALL; 


END; 
END; 
END    CONTROL_FLOW; 

/*<><><><><><><><><> 
/* 

INIT  I 
ROUTINE  IS  THE  BA 
LOOP    FOR    THE    PROG 


/*  */ 

/*    YES. ..MARK    EAPLIER    ENTRIES*/ 
/*    TO    PREVENT    PROCESSING  */ 

/*  */ 


/*  */ 

/*  OPTIMIZED  POOL  WAS  NOT  */ 

/*  ALTERED  DURING  MEET  -  DO  */ 

/*  NOT  PROCESS  THIS  BLOCK  */ 

/*  */ 

/*  */ 

/*  BLOCK  NOT  BUILT        -  */ 

/*  BUILD  A  HEADER  FOR  IT  */ 

/*  FWA  IS  I  IN  CODE  */ 

/*  */ 


/*  *y 

/*  WHILE  K  <  CTOP  */ 

/*  */ 

/*  ORDER  THE  BLOCK  SELECTION  */ 
/*  LIST  AS  REQUESTED.         */ 


/* 

/*    END    OF    BLOCK    PROCESSED 
/* 

/*    WHILE    CTOP    >    0 


*/ 
*/ 


/* 
/* 
/* 
/* 


INITIAL_CSF:     PROCEDURE; 
DECLARE     I    FIXEO; 
BLANKS-'  '  ■ 


*/ 

AL    CSF  */ 

SIC    INITIALIZATION  */ 

RAM.  */ 

*/ 


COLLEC=l; 

LOAD  =  2; 

STORE  =  3; 

STORET  =  4; 

DELETE  =  5; 

DUPLIC  =  6; 

CONV  =  7; 

COMM  =  3; 

EXCH  =  9j 

ccnd  =  io; 

UCOND  =  11  ; 

DO  I  =  0  TO 

NTYPES; 

NULL!  I  ) 

=  i; 

END; 

DO  I  =  I  TO 

NOPCODES; 

REFER! I 

-  1)  =  I  *  NTYPES; 

END; 

GOSUB  =  12; 

RETSUB  =  13i 

ETOP  =  0; 

VTOP  =  HASHBASE; 

/*  */ 

/*  SET  BASIC  OPERATIONS  TYPES*/ 
/*  */ 


DO  I  =  0  TO  HASHBASE; 

VTAB  (I)  =  o; 
END; 


TRACETOG  =  0; 
TABLETOG  =  0; 
PROPTOG  =  l; 
BRANCHTOG  =  1 ; 
PUNCH  TOG  =  0; 


CONLOC,  ADDLOC,  STLOC  ■  0; 
ADDLOCR  =  MAXADD  «-  I; 
ETOPR  =  MAXEXECU; 


/*  */ 

/*    CLEAR    HASH    ADDRESSES  */ 

/*  */ 


/*  */ 

/*    SET    TOGGLES  */ 

/*  */ 


/*  */ 

/*    SET    ALL    TABLE    POINTERS  */ 

/*  */ 
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V  I  UHK*=MAZV  AL-H  I 


ALTST  = 

o; 

ALTEX  = 

0; 

ALTAO  = 

o; 

ALTCN  = 

0; 

ALTCT  = 

o; 

ALTVL  = 

0; 

PAGE  EJECT; 

OUTPUT 

3   • 

IF  PUNCHTOG  1HEN 

OUTPUT 

<2)  =  • 

CALL  LINE  FEEDI2) 

END 

INITIAL 

_CSF; 

/*<><><><> 

/* 

/* 

/*  SETS  UP 

/*  ROUTINc 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

INITI 

DECLARE 

I  FIXED,  T  C 

/* 

/*  CLR  PRINT  TAB 
/* 


***CODE  SYNTHESIS  FILTER***'; 
***CODE  SYNTHESIS  FILTER***1; 


LES 


*/ 

INDICATOR*/ 
*/ 


SELEC 
IF  SE 

do; 
c 
s 

END; 
T  =  • 
T  =  T 
OUTPU 
IF  PU 
OUTPU 
CALL 
CALL 
IF  TR 
CALL 


T  FLAG  =  READ_S 
LECTFLAG  >  NUM 


INITIAL_METAEX 

TO  PERFORM  THE  META  EXECUTION 
S  CALLED: 

READ  SELECT_METHOD 

ERROR" 

LINE  FEED 

READ  CODE 

F0RM5TC0DEDUMP 

BUILD  CONS  TA8LE 

PROPAGATE 

W_CONS 

insrt_suc  block 
build_8l0c~k 

e; 
haracter; 

/* 

/*  INPUT 
/*  LANSU 
/* 

ELECT  METHOD; 
SELECT  METHODS  THEN 


>*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

>*/ 


THE  INTERMEDIATE 
AGE. 


*/ 
*/ 
*/ 
*/ 


ALL  ERRORl • ILLEGAL  SELECTION  METHOD  CODE  -  LIFO  FORCED1 
ELbL  l_(-LAb  =  u; 


5); 


BLOCK  SELECTIO 
I  I  SELECT  METH 

1    =     JA 
NCHTOG  THEN 

T(2J  =  T; 

LINE_FEED<2) ; 

READ_CODE; 
ACETOG  THEN 
FORMATCODEDUMP; 


N  METHOD  WILL  8E  ' ; 
OD(SELECT_FLAG); 


CALL    BUILD.CONS    TABLE; 
ETOP=l; 


DO  I  =  1  TO  CONLOC; 
EXADO(ETOP)  =  I; 
CALL  PROPAGATE ICONTYPEl  I)  ,0); 

END; 

ETOP=0; 

IF  TRACETOG  THEN 

CALL  W_CONS; 


CSFCODE(tfPARMS)  ■=  SHL(ENT,  16); 
M_C0NTROL  =  tfPARMS; 


BLKLOC-CODELOC+1; 
BLKCNT    =    0; 
BLO    =  o; 
OPTOP    =     l; 

CTOP  =  o; 

CALL  INSRT_SUC_BLOCK(0PARMS); 

#XITS  =  o; 


/* 

/*  BUILD  THE  CONSTANT  TABLE 
/* 


*/ 
*/ 
*/ 


/* 

/*  ENTER  CONSTAM 
/* 


*/ 

TS  BY  TYPES   */ 

*/ 


/* 

/*  FORCE  ENT  AS 
/*  IN  THE  INTERM 
/* 


*/ 

FIRST  INSTR   */ 

EDIATE  CODE   */ 

*/ 


/* 

/*  ENTER  BLKO  ON 
/* 


*/ 

CNTROL  STACK*/ 
*/ 


/* 

/*    BUILD    BLKO    HEADER 
/* 


*/ 
*/ 
*/ 
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CALL     BUlLU_DLULMn_tUNfKUL); 


END    INITI AL_METAEX  ; 

/*<><><><><><><><><  ><>oo<><><><> 
/* 

/*<><><><><><><><><><><><><><><><> 
/* 

/*  MAIN    PROGRAM 

/*  THIS    IS    THE    MAIN    CONTROL    DRIVER 

/*  ENTIRE    CSF    PROGRAM. 

/*  ROUTINES    CALLED: 

/*  INITIAL_CSF 

/*  INITIAL    METAEX 

/*  DUMP_ALC 

/*  CONTROL    FLOW 

/*  OUTPUT    OPTIMIZATION 

/*  LINE_FE"EU 

/* 

/*<><><><><><><><><><><><><><><><> 

/* 

/*<><><><><><><><><><><><><><><><> 


CALL  INITIAL_CSF; 


CALL  INITI AL_METAEX; 

CALL  dump_all; 


STRTIME  =  TIME; 


CALL  CONTROL_FLOW5 


CALL  output_optimization; 


CALL  LINE_FEED(1); 

PAUTIME  =  TIME; 

TOIIME  =  PAUTIME  -  STRTIME; 

SECONDS  =  TOTIME  /  1000; 

PRTSEC  =  TOTIME  MOD  1000; 

OUTPUT  =  '  TIME  FOR  THE  OPTIMIZATION  WAS  '  | 

•  SECONDS.'; 
IF  PUNCHTOG  THEN 

0UTPUH2)='  TIME  FOR  THE  OPTIMIZATION  WAS  ' 

•  SECONDS.' ; 
CALL  LIN£_FEtD(2)  ; 

output  =  '  ***code  synthe 

if  punchtog  then 

0utput12)  =  •  ***cooe  synthe 

page_eject; 

/*  FINI 

/*  CODE  SYNTHESIS  FILTE 

/*<><><><><><><><><><><><><><><><> 

/*     END        END        END 

EOF  EOF  EOF 
EOF  EOF  EOF 


/* 

/*  INPUT  THE  SELECT  METHOD 

/*  INDICATOR. 

/* 

<><><><><>*/ 

*/ 
<><><><><>*/ 
*/ 
*/ 
FOR  THE  */ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

*/ 
<><><><><>*/ 
/* 

/*  INITIALIZE  POINTERS  AND 

/*  TABLES 

/* 

/* 

/*  SET  UP  FOR  META  EXECUTION 
/* 


/*  SAVE  THE  START  TIME  OF 

/*  OPTIMIZATION 

/* 

/* 

/*  BASIC  PROCESS  ROUTINE  - 

/*  RETURNS  WHEN  ALL 

/*    OPTIMIZATION    IS    COMPLETE^ 

/* 

/* 

/#  OUTPUT  THE  DETECTED 

/*    OPTIMIZATIONS. 

/* 

/*  SAVE  THE  FINISH  TIME  OF 

/*  OPTIMIZATION 

/* 


I  SECONDS  II  '.'  ||  PRTSEC 

I  |  SECONDS  II  «• '  II  PRTSEC 

SIS  FILTER  IS  COMPLETE***'; 
SIS  FILTER  IS  COMPLETE***'; 

*/ 

R  */ 

<><><><><>*/ 

END  */ 

<><><><><>*/ 


*/ 
*/ 
*/ 
*/ 


*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 


*/ 
*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 

*/ 

*/ 
*/ 

*/l 

*/! 
*/! 

*/l 

i 

i 
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